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EDITORIAL 


Chers amis, 


Ce journal est presque fini au moment où j'apprends une triste 
nouvelle : Richard Nelson, fondateur du mouvement PPC aux 
. Etats-Unis, a décidé de fermer CHHU, son nouveau club. Il ne reste 
donc plus aucun club valable à vocation internationale dédié aux 
calculateurs de poche HP. 


Cette cessation d’activité est dûe à des raisons économiques : CHHU 
ne regroupait pas assez de membres pour survivre. Cela faisait 
longtemps que plus aucun Journal ne nous parvenait des Etats-Unis. 


Les nouvelles de France sont, au contraire, plutôt bonnes. Bien que le 
nombre définitif de commandes de "modules JPC" ne soit pas encore 
connu, les résultats provisoires sont très prometteurs. 


Ce Journal est le second bénéficiant de la nouvelle présentation. Nous 
souhaitons que ces possibilités contribuent à une plus grande lisibilité. 
N'hésitez pas à nous faire part de vos remarques, suggestions ou 
critiques sur ce sujet. 


Pierre David (37) 


JPC 42 Page 1 


_— JPC 42 Page 2 


L'ASSEMBLEE GENERALE 


Comme il se doit, notre Assemblée Générale 
Annuelle à eu lieu en Décembre 1986. 
Annoncée depuis longtemps, elle a réuni tous 
ceux qui ont pu se libérer, qui n'étaient pas 
trop éloignés de la capitale et qui ont la fibre 
associative. Douze pour être précis. À ceux-là 
s'ajoute un nombre appréciable de mandats 
qui ont assuré la légitimité de notre réunion. 


Notre vénéré Président et néanmoins Trésorier 
a ouvert la réunion par les paroles de 
satisfaction et d'encouragement qui 
conviennent à la bienséance et à l’occasion. 
Puis il s’est efforcé de nous faire un rapport 
financier. 


Nous avons été sensibles à son optimisme 
relatif à l’avenir de notre Association. Parmi 
les faits principaux, soulignons quelques points 
essentiels : 


- Le dernier trimestre est traditionellement 
riche en réabonnements. En effet, les 
préoccupations liées aux congés et à la rentrée 
universitaire s’estomptent, et chacun se frappe 
le front et la poitrine en s’exclamant : "Bon 
sang, mais c’est bien sûr ! L'heure est venue 
de payer ma cotisation à PPC-Paris". Le 
président nous à annoncé pas moins de vingt 
réabonnements pour les jours prochains. 


- Il y à maintenant deux ans, nous avions 
entrepris une action commune avec 
Hewlett-Packard afin de mettre dans chaque 
emballage de matériel une carte d’information 
sur le club PPC. Nous ne pouvons que nous 
féliciter de voir notre attente enfin 
récompensée. Les premières inscriptions sont 
arrivées récemment par ce canal. 


- Plus de trois cents numéros d’adhérent ont 
été attribués et nous avons été plus de deux 
cents membres actifs au même moment au 
cours de l’année écoulée. 


- Outre les abonnements, le Journal se vend 
bien chez quelques distributeurs, ainsi la Règle 
à Calcul vend bon an mal an entre vingt et 
trente exemplaires par mois. 


- Cette estimation de la situation a permis à 
notre Président d'investir dans l'achat d’un 
lecteur de cassettes et d’un lecteur de 
disquettes. 





- Pour respecter les termes de la loi, le 
Trésorier Président va rédiger un 
compte-rendu écrit de l'exercice passé afin 
que nous puissions le transmettre à la 
Préfecture. 


Pierre David, en sa qualité de Président 
Adjoint nous a ensuite dressé le rapport moral. 


Cette année est caractérisée par une nette 
amélioration de nos relations avec HP. Nous 
pouvons voir là se concrétiser un long travail 
pour que la qualité de notre production au 
sein du Club n'ait rien à envier à celle des 
professionnels : 


- D'une part la qualité de la présentation de 
notre Journal, entièrement confectionné sur 
HP-71 et LaserJet, est la preuve tangible des 
capacités de cet ordinateur portable. N'oubliez 
pas que le temps de confection est passé de 
cent cinquante heures à quarante, grâce à la 
création d’un ensemble de programmes mis au 
point essentiellement par Pierre David et 
Janick Taïillandier, mais aussi parce que vos 
articles nous parviennent maintenant sur 
support magnétique. 


- D'autre part, la qualité du contenu (nous 
sommes actuellement le Club qui a produit le 
plus d’applications de qualité sur HP-71 à ce 
jour) est l'expression d’un esprit associatif 
appréciable où chacun bénéficie du travail de 
tous. De ce point de vue, la création du 
module JPC est un événement qui a un 
retentissement internationnal dans le petit 
monde des clubs utilisateurs HP. Dans la 
même veine, nous allons bientôt proposer la 
diffusion sur support magnétique des 
programmes parus. Actuellement plus de sept 
cents kilo octets de programmes ont été 
archivés et un catalogue est pratiquement 
terminé. 


Cependant, nous sommes invités à renforcer 
l’activité du Club au cours de l’année 1987. En 
effet, les difficultés des Clubs au USA et à 
Toulouse doivent nous inciter à modérer notre 
confiance. Notre existence est fondée sur un 
faisceau de petites actions individuelles. Que 
chacun d’entre nous essaie de faire un 
adhérent dans l’année et / ou écrive un article 
(surtout pour les débutants) et nous 
améliorerons encore notre apport à tous. 


Nous souhaitons également que chacun des 
membres de province puisse prendre contact 
avec son distributeur local et négocie un dépôt 
vente du journal dans son magasin. 


Nous avons, bien entendu procédé à l'élection 
d’un nouveau Bureau. Sont élus : 


Président : Philippe Guez 
Président Adjoint : Pierre David 
Trésorier : Janick Taïillandier 
Secrétaire : Jean-Jacques Dhénin 
Secrétaire Adjoint : Olivier Arbey 


Le nouveau Bureau entre en fonctions à 
compter du 1° Janvier 1987. 


Nous avons ensuite débattu de différents 
projets, tels que la confection d’un numéro 0 
de JPC (ce qui ne veut pas dire nul) dont le 
rôle serait de satisfaire par un exemplaire ad 
hoc les demandes d’informations qui nous 
parviennent. Nous avons également évoqué la 
possibilité de réaliser un ouvrage collectif 
autour du HP-71 : une sorte d’encyclopédie ou 
de Vademecum. Toutes les idées ou les 
propositions seront les bienvenues. 


Pour le Secrétariat, 
Jean-Jacques Dhénin (177) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC 
Paris se réunit une fois par mois, en plein 
coeur de Paris. Amenez votre matériel, votre 
bonne volonté et vos idées ! Plus vous en 
apporterez, et plus vous en trouverez chez vos 
collègues de PPC. 


Ces réunions se déroulent de manière très 
libre, aucun ordre du jour, discussion ou autre 
n’étant imposé. Un membre du bureau est 
toujours présent. Ainsi, Si vous désirez 
remettre votre article tout frais au Journal, si 
vous avez des suggestions à faire, si vous 
voulez vous procurer des anciens numéros de 
JPC, ce sera en principe toujours possible. 


—_—_—_— 


Si donc cela vous intéresse, n’hésitez plus un 
seul instant, venez nous rejoindre tous les 
premiers samedis de chaque mois (sauf en 
péride de vacances scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous 
entendrez des éclats de rire et des discussions 


passionnées vers la salle 215. Attention, 
toutefois, de venir entre 16 et 19h. 
Pour l'accès en métro, trois possibilités 


s'offrent à vous : 

- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté 
pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en 
avant première lors de ces réunions. A bon 
entendeur, salut ! 


Les dates des prochaines réunions sont : 


Samedi 7 mars 1987 
Samedi 4 avril 1987 
Samedi 16 mai 1987 
Samedi 6 juin 1987 


Pierre David (37) 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais Vous ne savez 
pas sous quelle forme "l’équipe de rédaction" 
souhaite recevoir votre prose. C’est ici que se 
trouvent les réponses à vos questions. 


Dans la mesure du possible, vous devez nous 
envoyer vos écrits sur support magnétique 
(carte, cassette ou disquette). Soyez sans 
crainte, nous vous retournerons vos biens 
après Copie. 
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Si vous ne pouvez pas utiliser de support 
magnétique, où ne pouvez vous rendre aux 
réunions, alors et alors seulement faites le sur 
papier. 


Que ce soit sur une feuille de papier, ou sur 
support magnétique, ne dépassez pas 50 
Caractères par ligne. 


Pour nous épargner du travail, insérez dans 
votre texte les commandes de formattage 
suivantes (et non les commandes du formatteur 
HP): 

"*" centre un titre, par exemple : 
TITRE 


"" (CHR$(92)) marque le début et la fin d’un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de 
vos idées qui, même si vous en doutez, 
intéressera certains des membres du Club. 
Surtout si vous vous sentez débutant. Les 
articles pour débutants écrits par des débutants 
sont ceux qui manquent le plus. Fin de 
paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le 
Jeu de caractères Roman8. Les possesseurs de 
HP71 utiliseront les redéfinitions de touches 
ci-dessous, ainsi que le fichier CHARLEX 
listé dans le coin des Lhex en fin de journal. 


Jean-Jacques Dhénin (177) 


DEF KEY 'fW!, CHR$(197): (é) 
DEF KEY 'fE', CHR$(193); (é) 
DEF KEY 'fR', CHR$S(201): (è) 
DEF KEY 'fY!, CHR$(203): (ù) 
DEF KEY ‘fU', CHR$(195): (ü) 
DEF KEY 'fI', CHR$(209); (5) 
DEF KEY 'f0!, CHR$(194): (ô) 
DEF KEY ‘f/!, CHR$S(92); (\) 
DEF KEY 'fA', CHR$(192): (à) 
DEF KEY 'fS', CHR$(200); (à) 
DEF KEY ‘fD', CHR$S(205); (ë) 
DEF KEY 'fJ!', CHR$(207); (ü) 
DEF KEY 'fK!', CHRS(221); (i) 
DEF KEY 'f*1, CHR$S(124): (1) 
DEF KEY 'fC', CHR$(181): (ç) 





COURRIER DU COEUR 


. PPC Paris 


56 rue J.J. Rousseau 
75001 Paris 


Vend : (Prix Toutes Taxes) 
Interfaces Vidéo HP82163B neuves (dans leur 
boîtes, avec documentation). 600 F seulement. 


Des lots de 100 cartes magnétiques pour 
HP-41, HP-67, HP-97 et même HP-65. 100 F 
seulement. 


Des lecteurs de cartes magnétiques HP82400A 
pour HP-71. 500 F pièce. 


France Bilan Informatique 
10 rue Cambon 
75001 Paris 


Vend : (Prix Hors Taxes) 


HP71B 2500 F, lecteurs de disques 
HP9114A 3500 F, ThinklJet 2200 F, 
modules 4 Ko Ram : 350 F, module HPIL 
pour HP71 : 560 F, interface HPIL-HPIB : 


1900 F, module Forth / Assembleur pour 
HP71 : 850, module finance : 400 F. 


Alain Gillet 
Tél: 43-67-54-44 (après 18h) 


Vend : 

Imprimante 82161A, plusieurs rouleaux de 
papiers : 2000 F, lecteur de code-barre : 500 
F, livres : "Programmation synthétique" (Dr. 
Wickes) : 60 F, "La programmation synthétique 
c’est facile" (K. Jarret) : 60 F, "Time module 
solution 1" (HP) : 60 F, "Au fond de la 4!" 
(Dodin) : 60 F. 


Jean-Jacques Dhénin 

35, rue Boileau 

92120 Montrouge 

Tel : 43-37-63-50 (bureau) 


Vend : 
HP-75 + littérature abondante 3000 F 





COURRIER 
DES LECTEURS 


Thierry Besançon 
9, Rue Champ Chapelle 
77120 Coulommiers 


Connaissez-vous la fonction MEMORY ? Non ! 
Alors faites sans tarder MEMORY [IENDLINE]. Sur 
mon HP-71B, cela me renvoie 1. Qu’en dire à 
part cela ? Et bien, fait étrange, si l’on utilise 
le programme d’analyse de Lex SYSTCAT 
(mille excuses pour Jean-Pierre Bondu mais 
c'était le premier sur le marché et de plus il 
n'utilise pas l’HP-IL) ainsi que le PEEKS 
étendu (PKLEX ou DESAL), on ne trouve 
aucune trace de MEMORY dans les Roms dont 
les ID sont, sauf erreur de ma part, 00 et O1. 


Pourtant, en utilisant SCANLEX voilà ce que 
l’on trouve : 


TYPE ('MEMORY') -->0 
ENTRYS$ ('MEMORY'}) --> 08F92 


Bizarre, n'est-ce pas ? Pourquoi diable 
MEMORY n'est-il pas groupé avec les autres 
mot-clefs ? Que fait-il exactement ? 


Je n’ai pas pu en savoir plus. Alors je fais 
appel à tous les fouineurs et surtout aux 
heureux propriétaires des IDS qui, je pense, 


pourront y trouver de plus amples 
renseignements sur cet étrange mot-clef. 


Thierry Besançon (292) 


Explication du Dr JPC : 


L’explication est très simple. MEMORY est 


compris par le HP-71B comme : 
MEM OR Y 


Ce qu’on peut aisément vérifier en tapant dans 
un programme Basic : 


10 DISP MEMORY 
Cette fameuse fonction sera visualisée comme : 


10 DISP MEM OR Y 





Comme la mémoire disponible est rarement 
nulle, la "fonction" MEMORY renverra 1. Rien 
de bien extraordinaire... Le HP-71 ne possède 
pas les instructions cachées qui ont fait les 
beaux jours de la HP-41] ! 


Pierre David (37) 


CHOC EN RETOUR 
INTERFACE MINITEL - HPIL 


Ceux d’entre vous qui envisageraient de 
construire l'interface Minitel/HPIL auront 
peut-être trouvé le schéma "Module UART" 
du JPC 34 page 7 un peu confus. 


Cette confusion provient de ce que le plan 
publié correspond à une version "prototype" de 
cette interface. Voici donc quelques précisions. 


La fonction du module UART est d’effectuer 
les conversions série / parallèle entre le 
convertisseur HPIL / parallèle et la prise 
péri-informatique du Minitel, qui n’est autre 
qu’une interface série, au niveau TTL, à 1200 
bauds. 


Le signal à 19200 Hz issu du module horloge 
doit être injecté au niveau des broches 17 et 
40 de l'UART (il s’agit des horloges de 
réception et d'émission). 


Sur la broche 25, on trouve la sortie série de 
lUART, qu’on reliera à la broche 1 de la 
prise péri-informatique du Minitel (entrée 
série). Sur la broche 20, on trouve l'entrée 
série de l'UART, qu’on reliera à la broche 3 
de la prise péri-informatique du Minitel 
(sortie série). 


La broche 4 de la prise péri-informatique sert 
à indiquer au Minitel la présence d’un 
périphérique quand elle est au niveau 0 voit. 
On pourra donc la relier directement à la 
masse, c’est-à-dire à la broche 2 de la prise 
péri-informatique. 
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Horloge 1200 bauds 
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masse (broches 2 et 4 prise Minitel) 


Prise Minitel : 


Broche 1 : Périphérique --> Minitel. 
Broche 2 : Masse. 

Broche 3 : Minitel --> Périphérique. 
Broche 4 : Périphérique en transmission. 
Broche 5 : Minitel sous tension. 

Les broches 4 et 5 sont actives à O0 V. Sur les futurs 
Minitel, La broche 5 sera une source de +5 V pour 
les périphériques à faible consommation. 


Sur le schéma publié dans le JPC 34, les LEDs 
vertes et jaunes s’éteignaient au passage des 
données, alors qu’il eût été plus logique 
qu'elles s’allumassent à leur passage. Il suffit 
pour cela de remplacer les transistors NPN par 
des PNP, et bien entendu de les monter dans 
le bon sens ! 


Enfin, les 5 interrupteurs reliés aux broches 
35 à 39 de l'UART permettent de configurer 
la liaison série dans le mode 7 bits de données, 
1 bit de parité paire, 1 bit de stop. 


Lionel Ancelet 





NOUVEAUX PRODUITS 


La firme américaine HHP (Hand Held 
Products) a annoncé ces jours-ci des nouveaux 
modules mémoire pour le HP-71. Ces modules, 
enfichables à la place du lecteur de cartes, ont 
une capacité beaucoup plus importante que les 
précédents modules. La gamme complète est 
donc maintenant : 


160 Ko Ram (5750) 

128 Ko Ram avec batterie de sauvegarde ($625) 
64 Ko Ram avec batterie de sauvegarde (5295) 
32 Ko Ram avec batterie de sauvegarde ($165) 





32 Ko Eprom ($115) 


32 Ko Eprom + 32 Ko Ram ($275) 
32 Ko Eprom + 64 Ko Ram ($375) 


Notons que le module 96 Ko Ram n'est plus 
au catalogue, et que les prix (du moins aux 
Etats-Unis) sont devenus presque raisonnables. 


Annoncé également un nouvel interface HP-IL 
/ RS232. Compatible avec l'interface HP 
(HP-82164A), 1il dispose de buffers plus 
grands (8 Ko) et est alimenté par des batteries. 
Le prix : $449,. 


Ne pas confondre avec l'interface présentée 
dans JPC 40, fabriquée par "Firmware 
Specialists" (Réf : FSI164A). 


La date de disponibilité reste à déterminer. 


Pierre David (37) 





Hand Held Products is recognized woridwide for its 
lines of intelligent portable systems, memory mod- 
ules and related products used in conjunction with 
Hewlett-Packard hand held computers. 
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Description: 


Hand Held Products HP-IL/RS-232 Battery- 
Powered Interface gives you portable power for up 
to 30 hours of continuous interaction (15 hours mini- 
mum) between Hewlett-Packard Interface Loop and 
RS-232 devices. The Interface enables a number of 
HP computers (HP-41, HP-71, HP-110 and others) to 
communicate with other computers, terminals, 
printers, or modems without AC power in even the 
most remote locations. 

Compact and ligntwerght, this serial communica- 
tions interface 1s physically identical to the HP 
82164A,. Functionally compatible as well, it will 
respond to the entire 82164A remote mode mnstruc- 
ton set, with local and remote operating states for 
complete flexibulity in configuring the interface. 

In addition to standard AS-232 and HP:IL fea- 
tures, the interface has extended transmit and 
receive buffers with 8K byte capacities. Special 
function keys permit direct user interaction with the 
interface and the setting of certain states through 
manual means. Control logic in the HP-IL/RS-232 
Interface stores operating information, impiéments 
user-selectable operating modes, and controls the 
flow and interpretation of data within the interface. 


Features: 


+ Compact, Lightweight and Compietely Portable 

+ Rechargeable 500 mA Ni-Cad Battery 

+ Programmable Battery Conservation Shutdown 
Timer 

+ Battery-Low Warning Indicator 

+ Hardware Protected from Over-Discharge 

* Uses Standard HP Wall Transformer to Recharge 

+ Extended Transmit and Receive Bufters (8K Byte 
Capacity) 

+ EIA Standard Bipolar RAS-232 Signais, Jumper- 
Selectable Option for TTL Level 





HP-IL/RS-232 
Battery Powered 
Interface / 





Only from 


I HAND HELD “ 
Issues 


Specifications: 


Power Requirements: 
+ Power Source . . . One Ni-Cad Battery, 
Rechargeable 


+ Operating Current . . . 500 mA, maximum (350 
mA typical) 


Environmentai Limits 

+ Operating Temperature Range . . . 0° t0 65° C 
(32° to 131° F) 

+ Storage Temperature Range . .. —-40° to 75° C 
(—40° to 167° F) 


Physical Dimensions 
+ Length xWidth x Height . . . 63x4.7x1.1 inches 
+ Weignt 15 Ounces 


RS-232 Features: 

+ Asynchronous Data Communications 

+ Full-Duplex and Hait-Duplex Operation 

+ Standard Hardware Handshakes 

+ Programmable Cortroi of Non-Standard 
Handshakes 

+ Programmable Software Handshakes (ENQ, 
ACK.XON/XOFF) 

+ Selectable Baud Rates (50 to 19,200) 

+ Selectable Word Lengths (5, 6, 7. or 8 bits) 

+ Parity Checks (none, even, odd, always 1, 
always 0) 

+ Selectabie Stop Bits (1 or 2) 

+ Echo Capability 

+ Jumper Block Configurable as OTE or DCE 

+ User-Definable Protocois 

+ Compatible with Direct-Connect Modems & 
Acoustic Coupiers 


HP1L Features: 

+ Talker and Listener Capabulities 

+ Detailed Status Information 

+ Programmable Asynchronous Service Requests 
{including programmable service request options) 

+ Listener Not Ready for Data 

+ Simple Auto-Addressing 
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High Capacity 
Memory 
Modules 





For 

Your HP71 
Hand Held 
Computer 


Only from 
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More Memory... 
Up to 160K Bytes! 


Unieash the power of your HP71 with Hand held 
Products new 71 M/M Series high capacity 
extended Memory Modules. Choose from seven 
available configurations offering a variety of fea- 
tures to meet your specific needs. Enjoy the Hlexibil- 
ity of EPROM—ideal for developing your own 
programs—Or multiply your HP71's data storage in 
RAM to more than ten times its present capacity. 
With battery back-up and card-reader port installa- 
tion, the 71 M/M Series offers features you can't get 
in memory modules from any other supplier. 


Your Choice of... 


+ RAM: 160K Bytes 
128K Bytes with Battery Back-up 
64K Bytes with Battery Back-up 
32K Bytes with Battery Back-up 
+ EPROM: 32K Bytes 
+ EPROM/RAM: 32K/32K or 
32K/64K Bytes 


Features 


+ Highest Capacity RAM in à Single Module 

+ Battery Back-up in Most RAM Modules Retains 
Data mn Case of HP71 Power Loss 

+ Self-Contained Modules Reside in Card Reader 
Port Leaving Valuabie Front Ports Free for Appli- 
cation Moduies 

+ Easy Plug-n Installation, No Tools Required 

+ RAM May Be Used in Main Memory or 
Addressed as Independent RAM 

+ Battery Life Up to Five Years Under Normal Use 





És :: 
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Installing Your 
Memory Module 


71 M/M Series extended Memory Modules are 
installed in the card-reader pont of your HP71 
Instailation :$ simple, requires no toois and can be 
accomplished in Seconds. Here's ail you do: 


1) Turn off the HP71. 


2) Turn the HP71 over and remove the cover to the 
Card reader port. 


3) Remove the plastic insert. 


4) Install the Memory Module by aligning the gold 
pins in the HP71 with the sockets in the Modules. 
Press firmiy on the back of the Module until it fits 
snugly in place. 


5) Turn the HP71 right side up. Check to be certain 
the name plate on the Memory Module is flush 
with the front of the HP71. 


6) Replace the cover to the card reader port. 








Ordering 























Information 
Model Number! Description | Price | 
ne pese : _! 
71 MIM 160R  160K RAM $750 
71 MIM 128R  128K RAM 625 
71 MM 64R 64K RAM 295 
71 MIM 32R 32K RAM 165 
| 71 MIM 32€ 32K EPROM 115 
71 MIM 32/64  32K EPROM 375 
64K RAM 
71 MM 32/32  32K EPROM 275 
32K RAM 
HHP 71 MM Battery 10 


Replacement Assembly 


"Volume Discounts Available 
“Visa and MasterCard Accepted 


Memory Modules 
from the Leader 


Hand Held Products is recognized woridwide tor its 
lines of intelligent portable systems, memory mod- 
ules and related products used in conjunction with 


Il HAND HELD * 
Mll=zooucrs 


Post Office Box 2388 
Chariotte, NC 28211 
Phone (704) 541-1380 
Telex 810-621-0380 


Using Your Extended RAM 


Hand Held Products 71 M/M Senes extended 
RAM modules can be utilized in two ways: 


{1} Main Memory 

When the module !s in place, you have instantly 
added 160K, 128K, 64K or 32K bytes of memory to 
your HP71's main RAM. 


{2} Independent Memory 

Your increased memory may also be partitioned 
or placed in independent RAM, residing in port 5 of 
the HP71. Memory is partitioned in 32K byte incre- 
ments and addressed in these locations: 


e 32K ... Port 50 

+ 64K . .. Ports 50 and 501 

+ 128K ... Ports 50, 501, 502. and 503 

e 160K ... Ports 50, 501, 502, 503, and 5.04 


RAM Battery Back-Up 


The 32K, 64K and 128K RAM modules include a 
self-contained lithium battery. This feature allows 
you to safely remove the Memory Module from your 
HP71 and still retain its memory without fear of data 
loss. 

The 71 M/M RAM's battery operates oniy when 
the module is removed from the HP71; there 1s no 
battery drain while it is installed in the HP71. When 
mstailed, all RAM modules are powered by the 
HP71's own power source. Should the power source 
fail, however, the battery back-up safeguards your 
data until power is resupplied. 


Battery Life 


Each 71 M/M Series RAM module includes a 
snap-on cover wiuch must be placed on the module 
immediately upon its removal from the HP71. The 
cover must remain on the module at ail times when 
not installed in the HP71 to preserve battery life. 

The module mil retan 1ts memory for up to five 
years with normal use (installed in your HP71 about 
80% of the time). Expected life when removed from 
the HP71 is as follows: 32K, six years: 64K, three 
years, 128K, 18 months. Hand Held Products 
guarantees seven months minimum battery life tor 
all products. 

To replace the battery in your Memory Module, ail 
that's required is a 71 M/M battery replacement 
assembly. This assembly, available from Hand Held 


Hewlett-Packard hand held computers. 





Products, comes complete with everything you 
need and installs in minutes. 


Using Your EPROM Carrier 


If you wish to add EPROM capability ‘o your 
HP71, three different Memory Modules are 
available: 


+ 32K EPROM Carrier 
+ 32K EPROM Carrier with 32K RAM 
+ 32K EPROM Carrier with 64K RAM 


EPROM functions are identicai in ail three 
versions. 

You may install up to 32K of EPROM in your 
71MM EPROM Carrier. The Carrier will accept the 
toilowing: Intei compatible, CMOS, 27256, 200 
nanosecond or faster. 


Addressing the Memory... 

Memory in each EPROM Carner version is parti- 
toned in 32K increments and addressed in these 
locations: 


+ 32K EPROM ..…. Port 50 
+ 32K EPROM/32K RAM . . . Ports 50 and 501 
+ 32K EPROM/64K RAM  .. Pons 50, 501. and 502 


Programming the Memory. . . 

Hand Held Products offers SDS (System 
Development Software) for programmung your 71 
M/M EPROM. The EPBURN SDS may be pur- 
chased for a nominal charge 1f you wish to burn 
your own programs into EPROM. 

Hand Held Products can also perform quick 
EPROM burns for you at our facilities. Call or write 
if yvou'd like additional information on this low cost 
service. 
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PROFIL DE VOIES URBAINES 


Voici les significations succintes des termes 
employés et le numéro du registre les 
concernant. 


[A] -> "CHOIX (1-3)2" entrer le numéro de la 
classe du revêtement désiré, pour voir le 
menu : [R/S] ; 


[1] revêtements lisses : béton de ciment, bét 
ons bitumineux, granulats de synthèse, 
asphalte coulé ou pavés d’asphalte : 


[2] pavage en granit : mosaïques petites (0.10) 
ou grosses (0.14) : 


[3] chaussée pavée en échantillon. 


Ce choix place d en ROI, 4 étant l'altitude 
d'un point appelé défense, posé à 1.00 mètre 
des bordures et formant le caniveau. 


[R/S] -> "LARGEUR?" entrer la largeur de la 
chaussée qui sera stockée en RO2. 


[R/S] -> MEPAULEMENT?" Æ = différence des 
hauteurs des fils d’eau, stocké en RO03. 


Les trois éléments de calcul ainsi entrés 
permettent par tR/s1 d'afficher D en ROS, c’est 
le "désaxement" du point haut de la voie, 
appelé F en RO4. Ce déport de la flèche 
permet de rétablir de part et d’autre deux 
demi profils normaux, en les traitant 
séparément comme tels. 


(R/S1 affiche la hauteur À à l'axe de la 
chaussée calculée, et M étant la cote du point 
équidistant à À et d. 


Si les caniveaux sont de même hauteur la cote 
de À sera également celle de F. 





Ces calculs sont admis au cahier des Clauses, 
Conditions et Charges Générales imposées aux 
entrepreneurs des travaux publics de la Ville 
de Paris (titre III du C.C.C.G.). 


Gilbert Tisserand (54) 


O1*LBL "PROFIL" 


02*LBL A 

FIX 3 

04*LBL 00 

CF 22 M"CHOIX<1-3>?2" TONE 9 PROMPT 

FS?2C 22 GTO IND X AON ‘“1-ASPHALTE" PSE 
W2-MOSAIQUE" PSE "3-PIERRE" PSE AOFF GTO 00 


20*LBL 01 
5 E-2 GTO 04 


23*LBL 02 
6 E-2 GTO 04 


26*LBL 03 
72 E-3 


28*LBL 04 

STO 01 TONE 9 "LARGEUR?" PROMPT STO 02 

2 * 5 - X<>Y 4 / * STO 03 TONE 9 
MEPAULEMENT?"  PROMPT X>Y? GTO 05 STO 04 

STO 03 "D=" RCL 01 / STO 05 ARCL 05 "h F=" 
2 * RCL 02 X<>Y - ENTER STO 07 X"2 X<>Y 
E - / RCL 01 4 / %* ST+ 04 ARCL 04 PROMPT 
RCL 02 2 / RCL 05 - X*2 RCL 02 RCL 05 

ê * - E - / RCL O5 X"2 RC 05 2 * 

RCL 02 + E - / - RCL 01 * RCL 03 + 

MA=U  ARCL X RCL 01 - 625 E-3 * RCL 01 + 
mt M="  ARCL X PROMPT GTO A 


116*LBL 05 
ME. MAX="  ARCL 03 PROMPT END 
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COMPATIBILITE DES BASIC 
HP-71 / HP-75 


J'ai eu récemment à adapter divers 
programmes du HP-75 vers le HP-71, ainsi 
que l'inverse d’ailleurs, et j'ai pu découvrir 
que, dans certains cas, ce n’était pas gagné 
d'avance... Comme il est toujours intéressant 
de pouvoir récupérer de bons programmes de 
l’une sur l’autre machine et que, à notre 
connaissance, rien n’avait été écrit sur le sujet 
hormis un article dans PPC-CJ (V3N1P27), 
limité à la comparaison des caractéristiques 
physiques des deux machines, je vous propose 
un premier inventaire des difficultés. Il ne 
prétend pas épuiser le sujet, mais au moins 
constituer une aide à ceux qui auraient à faire 
de telles conversions. On verra que les deux 
machines, qui sont souvent présentées comme 
presque totalement compatibles, ne le sont en 
fait que si l’on n'utilise ni fichiers, ni 
fonctions particulières, ni accès à la boucle... 
Bref, du Basic idéal et sans surprise tel qu’on 
n’en voit que rarement dans la pratique... 


L’inventaire a été organisé par grand sujet, et 
ne se limite pas à la machine "de base" : les 
cas posés par les modules ou Lex les plus 
courants (Rom I/O, Visicalc et Math du 75 
notamment) ont été inclus. Bon voyage, donc. 








CONSTANTES, VARIABLES 
ET TABLEAUX 


Une différence majeure : le HP-75 n’admet 
pas le dimensionnement variable (on peut tout 
au plus redimensionner un tableau avec la 
Rom Maths, encore faut-il l’avoir dimensionné 
au préalable pour le maximum d’éléments qu'il 
aura à accueillir, ce qui restreint 
singulièrement la souplesse de la 
manipulation). Le HP-71, lui, gère ses 
variables dynamiquement... 


Les instructions d'affectation multiple du 75 
ne sont pas admises par le 71 ainsi, 
ÀA,B,C,D=3.1416 est interdit ! 


FONCTIONS DE CHAINES DE 
CARACTERES 


L'utilisation directe de sous-chaînes est moins 
souple avec le HP-75 : ainsi, il est interdit 
(même avec la Rom [/O) d'écrire 
A$(3)[(2,5] ou HEXS(A)[2,5] : il faut 
donc passer par une variable intermédiaire 
sans dimension. 


LEFTS, RIGHTS et MIDS ne sont pas admis 
par le 71 (sauf avec module Forth}). De même 
pour LTRIMS et RTRIMS (mais le 71 est 
tellement plus souple au niveau de l’utilisation 
des sous-chaînes, qu’il compense largement 
cette absence). 


PUT, qui admet pour argument tout numéro 
de caractère avec le 75, n'accepte que des 
codes de touches avec le 71 (on ne peut donc 


pas s’en servir pour forcer un caractère 
spécial). 
Le fichier Keys est un fichier texte 


directement éditable avec le 75. 


ASCS (chaîne hexa) du 75 ne peut se traduire 
directement en 71 qu’à l’aide de HTAS du Lex 
DESAL. 


Les instructions d'attente de réponse au clavier 
(WKEYS ou WAITKEYS(#) pour le 75, 
KEYWAITS pour le 71 si le Lex approprié est 


présent) ont des possibilités légèrement 
différentes. 
Enfin, l’ordre des arguments de POS est 


inversé sur les deux machines. 





DRAPEAUX ET CHANGEMENTS DE BASE 


Il n’y a pas d'indicateurs accessibles à 
l'utilisateur sur le 75 ; ou plutôt, ils doivent 
être simulés en armant, désarmant ou testant 
des bits dans une chaîne ascii (fonctions 
FLAGS et FLAG? de la Rom 1/0) ou dans un 
nombre entier (fonction BIT de ladite Rom). 
Pas d’indicateurs système sur le 75, sauf avec 
PEEKS et POKE, mais c’est hyper dangereux ! 


La fonction de conversion généralisée 
TOBASE de la Rom I/O n’a pas d’équivalent 
direct 71. Le type octal n'existe pas non plus 
sur le 71. 


Plus vicieux sans doute, car affectant le 
résultat des conversions décimal / 
hexadécimal : le 75 travaille en complément à 
deux (et est limité aux entiers signés compris 
dans l’intervalle [-32767..+32767]), alors que le 
71 travaille en non signé, dans l’intervalle 
[0..+1048575] ! Problème découvert en essayant 
de convertir BAR75C, de Michael Markov. 
De ce fait, les fonctions FLAG? du 75, et 
FLAG du 71, ne donnent pas le même 
résultat ! 


Pour le 75, une chaîne ascii et une chaîne 
hexadécimale sont deux types de données 
différents (pas pour le 71). 


La Rom I/O (75) est très riche en fonctions de 
traitement de bits (décalages, 
complémentation, inversion, calcul booléen...). 


STRUCTURES DE CONTROLE 


C’est là que le 71 révèle qu’il est un petit être 
surdoué...  Puisqu’il accepte labels, sous 
programmes, structuration, etc. que son aîné 
ignore ou n'accepte qu'avec des restrictions, 
via la Rom 1/0 : un seul ordre SUB au début 
du programme, qui est ainsi un fichier 
indépendant, invoqué par CALL externe. 


Par contre, le 75 avec Rom 1I/O accepte tous 
les branchements calculés (GOSUBX, 
GOTOX..), et surtout l’ordre EXIT (sortie de 
boucle propre, mais il à été remédié depuis à 
ce manque, cf. JPCLEX). 


L’instruction DO ERROR n'existe pas pour le 
71 (sauf si utilisation de JPCLEX, ou 
simulation par BEEP @ DISP MSGS(#) @ 
END). 





Le 75 admet la syntaxe : 
ON condition liste d'inst. liées par des @ 
alors que le 71 n’admet que ON … GOTO ». 


LES FICHIERS 


C’est le gros morceau ! En effet, le 75 admet 
quatre types de fichiers (données, texte, Lifl 
et VisiCalc), qui ne sont pas directement 
compatibles avec ceux du 71 ou de la 41 sans 
conversion préalable. Ainsi, pour passer un 
fichier Text du 71 au 75, il faut : 

- Numéroter les lignes de 1 en 1, sur quatre 
positions plus un espace, sans oublier de 
mettre des zéros pour cadrer à quatre chiffres 
les numéros de lignes, puis enfin : 

- Convertir du type Lifl au type Text. 


Ceci puisque le 75 ne peut pas exploiter 
directement un fichier ascii (Lifl). Non plus 
qu’un fichier Data ou Sdata d’ailleurs, 
puisqu'il attend ses données sous la forme de 
lignes DATA d’un fichier Basic, ce qui permet 
de les éditer directement en mémoire, mais 
interdit l’accès direct sur disquette. Différence 
complète de philosophie, on le voit, qui oblige 
à faire les conversions de fichiers en plusieurs 
étapes, soit avec passage par un intermédiaire 
Texte sur disquette, soit en transmettant les 
données par la boucle, avec un programme de 
conversion / reformattage aux deux bouts... 


Le type VisiCalc, capable d’emmagasiner 
valeurs, labels et formules, n'avait pas 
d’équivalent sur le 71, jusqu’à l’apparition du 
logiciel Workbook-71 (de Richard Harvey, 
chez EduCALC). Il permet, comme VisiCalc, 
de traiter directement ou d'éditer données et 
formules, ou de laisser ce soin à un 
programme utilisateur en Basic qui saura 
accéder à toute case de la feuille. Ce type de 
fichier (Data 71) Il comporte également un 
éditeur de texte plein écran (pour les heureux 
possesseurs du vidéo 80 colonnes). Les fichiers 
utilisés (Data 71) se convertissent bien dans le 
sens 71 -> 75 ; dans l’autre sens, il faut 
extraire les données et labels de la feuille 
VisiCalc au moyen des extensions Basic de 
VisiCalc75, les placer dans un fichier Text ou 
Basic et convertir cet intermédiaire. 


Le type HPAF, qui est un cas particulier de 
fichier DATA-71, se convertit en fichier 75 
sans trop de problèmes en procédant par 
étapes : les en-têtes (les fameux tags, où se 
trouvent les descriptions des zones à convertir 
et leur type), puis les données elles-mêmes. 
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Tout cela a l'air assez flou, mais je peux vous 
assurer qu’on peut très bien, par exemple, 
passer des données VisiCalc (75, donc) au 
module Curve Fitting (du 71) et vice versa... 


Importante limitation du 75 : il ne sait pas lire 
directement de fichier sur support externe, 
donc, pas d’accès direct comme le 71 sait le 
faire. Par contre, la Rom 1/0 lui permet d’être 
beaucoup plus souple en mémoire : insertions, 
échanges, gestion directe des pointeurs et 
longueurs de fichier, de ligne. et édition 
directe de tout fichier ! Le 71 ne peut 
approcher cette souplesse que muni du Lex 
DATALEX : voir HPAF Utilities de Corvallis. 


Notez au passage que le 71 n’accepte pas les 
fichiers Basic (constitués uniquement 
d'instructions Data) : il ne peut pas accéder à 
des DATA externes. Par contre, ïl lit 
directement des données de HP-41 (fichiers 
Sdata), chose que son grand frère ne sait pas 
faire, sauf avec les deux Lex de J. Y. Hervé, 
MADLEX et DATA4I. Un Français ! Pour 
une fois. 


INSTRUCTIONS D’ENTREE/SORTIE 


Les READ*# et PRINT# s’utilisent de façon 
similaire. Il n’y a pas d’équivalent direct de 
INSERT#, DELETE#, SEEK#, LINE# et de 
la plupart des fonctions avancées de gestion de 
fichiers de la Rom 1/0 du 75, qu’il faut donc 
simuler par des boucles de recopie (à moins 
que vous n'’utilisiez DATALEX, déjà cité, ou 
l'éditeur de texte...). Notez aussi que le 71 ne 
tolère pas les dépassements de fin de fichier 
ou de longueur d’enregistrement, alors que le 
75, lui, s’en moque : il travaille en longueur 
variable et en gestion dynamique ! 


ACCES A LA BOUCLE HP-IL 


Quatre grandes différences : assignation des 
appareils sur la boucle, mode de contrôle, 
syntaxe des instructions SEND et ENTER 
(pour le 75, seulement si vous avez la Rom 
I/O : le Lex HPILCMDS ne donne pas cette 
possibilité) et les deux mots particuliers du 75, 
SENDIO et ENTIOS. 


Contrôle de la boucle : le 75 ne peut être que 
contrôleur (cette partie de la Rom 1I/O n’a 
jamais été achevée : au détour de la notice, 
vous découvrirez peut-être les mots magiques 
qui auraient l'air de pouvoir permettre. Mais, 


las, ils sont analysés et acceptés, mais ça 
s'arrête là ! Tout ce qu’on peut faire, c’est 
placer le 75 en mode récepteur et lui faire 
analyser les frames au passage, avec RIO et 
WIO (qui est dans la Rom I/O, voir le 
programme SCOPE...). 


Pour la désignation des appareils sur la boucle, 
se souvenir que le 75 ne connaît que celles de 
la forme ":Mx" où M est une lettre désignant 
la classe de l’appareil (Display, Mass, Printer, 
Interface, Controller.) et x un numéro 
d'ordre, et que l’assignation est manuelle 
(ASSIGN IO), sauf si la ROM I/O est 
présente et AUTOIO actif. Pas de noms 
génériques tels que :PRINTER, pas de 
désignation par numéro dans la boucle ou par 
l’'ID d’accessoire (: 564, par exemple). 


Quelques différences mineures de syntaxe 
entre les SEND et ENTER des deux machines 
(attention à la désignation des unités, aux 
blancs, et à l’utilisation de SDA) 


SENDIO et ENTIOS du 75 sont, il faut le 
dire, très puissants, tolérants et concis : pas 
besoin d’envoyer explicitement de MTA, 
MLA, ils ne refusent pas certaines frames (tels 
SDA). Voyons comment les simuler sur 71 : 


SENDIO : 
SEND liste 
Là, ça reste encore assez simple... 


ENTIOS : 
n=DEVADDR (...) 
SFLAG -23 
SEND UNL UNT TALK n DDT "# 
ENTER :LOOP : Jiste 


Voilà. Encore une fois, c’est un premier jet : 
si un des courageux qui m'ont suivi sans faillir 
jusqu'ici découvre d’autres pièges, qu’il m'en 
fasse part, un addendum sera publié. Et le 
mois prochain, si vous êtes sages, on vous dira 
tout sur le PMS et sur l’art de développer des 
logiciels en Eproms. A bientôt. 


Eric Gengoux (108) 
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CERCLES, PARABOLES, 
TRACER TOUTES LES 
FONCTIONS 


Dessiner des courbes y=f{x) était le pari. Il 
fallait donc pouvoir gérer et afficher un plan 
de résolution supérieur à 132x8. Grâce à ce 
programme, tous les types de courbes (de la 
droite à l’hyperbole en passant par les courbes 
en polaires) peuvent être tracés dans un plan 
de 132x128. 


RENTRER LE PROGRAMME 


Le programme s’étale sur trois langages (Forth, 
Basic, Assembleur). Ecrire d’abord le code de 
la fonction MIX. L'’assembler. Augmenter la 
capacité du dictionnaire de 2000 quartets ou 
plus, entrer le contenu de la partie Forth, la 
compiler. 


MODE D'EMPLOI 


Vous disposez de cinq fonctions évoluées (plus 
d’autres qui sont détaillées plus avant). 


CLE2R efface l'écran résolution. 


AXIS dessine des axes, qu'importe où est 
située l’origine du repère. Les graduations de 5 
en 5 sont repérées par un point blanc le long 
de ces axes. 


DISPLAY affichage du plan de résolution. 
L'écran est alors une fenêtre coulissante. Une 
pression sur [”] (resp. tvl) fait coulisser l’écran 
de 4 lignes vers le "haut" (resp. "bas"). Les 
extrémités sont repérées par "up" (resp. 
"down"). Une pression sur gt“1 (resp. gtvi) 
place la fenêtre tout en haut (resp. en bas). 
Une pression sur tspc] sort du programme. 


MODE sert à définir l’origine du repère du 
plan, ainsi que les échelles des axes. Affichage 
de : 

X-Origin (1) 66 

qui signifie que l’origine des X se situe, en 
valeur absolue, en 66 (1<=X<=132). Le 1 pour 
rappeler qu'il s’agit de la I-stack. Une pression 
sur [v] visualise l’origine des Y de la même 
manière. 





Exemple modifier l'origine des Y 
(1<=Y<=128 en valeur absolue) : 

- appuyer sur [RUN]. Rien ne se passe. 

- entrer 23 (ENDLINE)]. Affichage de : 

Y origin (1) 23 


Visualiser les échelles : 

Une pression sur tv]. Affichage de : 
X-ratio (F) 1 

F pour dire qu'il s’agit de la F-stack. 


Changer la valeur : 

- appuyer Sur [RUN]. Rien ne se passe, vous 
l’aviez pressenti, hein ? 

- taper .25 [ENDLINE]. Affichage de : 

X-ratio (F) .25 


Pour revoir l’origine des Y, un appui sur [“1. 
Pour réafficher ces résultats, utiliser les 
flèches "1, tv, gt“], gtvl. Pour sortir du 
programme, taper [SPC]. 


Maintenant, la manière de tracer les courbes. 
Exemple : y=3x+5. Créer un mot Forth ayant 
pour paramètres (X -- X Y}), ceux-ci étant sur 
la F-stack. Ainsi : 

: DROITE FENTER 3. F* 5, F+ ; 


La question que vous vous posez : pourquoi 
faire si compliqué ? Cette méthode permet de 
tracer des courbes paramétrées prenons le 
cercle avec x=40cos 1, y=40sin t, t en degrés. 
Dans la mesure où le repère est défini 
orthonormé : 

: CERCLE 3. F* FENTER 

COS 40. F* X<>Y SIN 40. F* : 


Si la notation polonaise inverse ne vous 
convient pas, alors réalisez un programme 
Basic : 

: FONC " X=FORTHF à RUN 10" BASICX " Y" BASICF : 


Bon, et alors ? Faites tracer votre fonction par 
DRAW. Exemples : DRAW CERCLE, DRAW DROITE, DRAW 
FONC, etc. Quand la main vous revient, vous 
avez acces aux autres mots. 


Effets de bord. Les valeurs calculées peuvent 
sortir de la matrice 132x128. En ce cas, vous 
en serez averti par des X ou des Y selon que 
l'excédent se trouve sur l’un des deux axes 
associés. 


LE PROGRAMME 


Il y 3 modules de fonctions : 





- l'affichage avec MIX, DISPLAY 
- les normalisations CLEAR, AXIS, MODE 
- les écritures avec COORDI, DRAW 


COORDI est un mot qui place un point dans 
le plan, sachant ses coordonnées X, Y et 
l’origine du repère. 


MIX, partie assembleur, sert à extraire le 
poids faible de l’octet d’une certaine adresse, 
le poids fort d’un autre ailleurs, 132 fois 
séquentiellement. Cette suite d’octets 
construite à cheval sur deux ensembles sera 
affichée. D'où l’origine du coulissant de 
l'écran de 4 lignes en 4 lignes. 


CONCLUSION 


Ce programme a un point faible : sa lenteur. 
Dix secondes ou plus pour tracer une courbe 
(autant pour les axes), c’est long. Mais ce 
vocabulaire est une base, bien sûr, on doit 
pouvoir améliorer, optimiser. 


Xavier Bille (203) 


Partie Assembleur : 


FORTH 
here EQU #2FB93 là où est stockée La valeur 

* de HERE 

WORD IMIX' (ad ad2 -- ad3) 

ADOEX 

RO=A sauvegarde de DO en RO 

D0O=(5) here calcul de l'adresse de PAD : 
* HERE + 5A 

A=DATO A 

LC(5) #5A 

A=A+C A 

DO=A 

R1=A R1 := * PAD 

C=DATI A 

C=C+1 A ade := ad2+1 

DAT1=C A récuperer LE bon quartet ! 
LC(2) #84 prémice de boucle 1 à 132 

D1=01+ 5 D1 sur adi 

deb R2=C 

GOSUB adres récupérer le quartet indexé 
. par ad2 

ASL B rotation sur 1 bit 

D1=01- 5 ad 

GOSUB adres récupérer Le quartet indexé 
gi par ad 

DATO=A B on range l'octet construit 
u à l'ad3 





D0O=D0+ 2 on se place 1 octet de + 
# sur ad3 
D1=D1+ 5 ade2 
C=R2 
C=C-1 B 
2C#0 B 132 boucles ? 
GOYES deb 
C=R1 on range ad3 dans la pile 
DAT1=C A 
C=RO 
DO=C 
RTNCC 

* extraction d'un quartet à 1 adresse 

adres C=DATI A adresse 
CD1EX 
A=DATI 1 A := (C) 
D1=D1+ 2 permet de pointer sur 
® l'octet suivant 
CD1EX 
DAT1=C A 
RTN 


Partie Forth : 


HEX 


: GRAPH ( repérage dans le plan graphique) 
CREATE 108 * NALLOT 
DOES> SWAP 108 * + ; 


: GDISP 84 " GDISP FORTHS" BASICX : 


10 GRAPH TABLE 


: DISPLAY € -- ) 
0 
BEGIN (€ *1*) 
DUP 2/ 2DUP 2* - 
IF DUP 1+ TABLE SWAP TABLE 
MIX 
ELSE TABLE THEN 
GDISP 
BEGIN ( *2*) 
KEY CASE 
13 OF DUP Î1E =  ( [vl) 
IF ." Down ." CR ELSE 1+ THEN 
1, 
ENDOF 
12 OF DUP 0= € (1) 
1F ." Up ." CR ELSE 1- THEN 


1, 
ENDOF 
20 OF DROP O0, ." end" ENDOF 
( CSPC]) 
14 OF DROP O0 1, ENDOF 


( g[”1) 
15 OF DROP ÎE 1, ENDOF 
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( g[vl) 
-1 SWAP 
ENDCASE 
0= UNTIL ( “e*) 
O= UNTIL : € 19 


CREATE ORIGIN 4 NALLOT 
4e ORIGIN C! 40 ORIGIN 2+ CI 


: COORDI CT es. 2 
ORIGIN Ca + 
DUP 84 < OVER -1 > AND 
IF 2* SWAP 


ORIGIN 2+ CQ - NEGATE 
DUP 80 < OVER -1 > AND 
IF DUP 8 / TABLE ROT + SWAP 
8 MOD ( calcul de 2°) 
CASE 
0 OF 1 ENDOF 
1 OF 2 ENDOF 
2 OF & ENDOF 
3 OF 8 ENDOF 
4 OF 10 ENDOF 
5 OF 20 ENDOF 
6 OF 40 ENDOF 
7 OF 80 ENDOF 


ENDCASE 
OVER Cd OR SWAP C! 
ELSE 
DROP .'! Y" THEN 
ELSE 
2DROP .'"! x" 
THEN ; 
: CLEAR ( 2 


O0 TABLE 840 O FILL ; IMMEDIATE 


AXIS ( ts, 3 
ORIGIN CQ NEGATE DUP 83 + 
BEGIN ( *axe des X*) 
DUP 5 MOD 
IF O0 OVER COORDI THEN 
1- 2DUP > 
UNTIL 2DROP 
ORIGIN 2+ Ca DUP 7F - 
BEGIN ( *axe des Y*) 
DUP 5 MOD 
IF DUP O COORDI THEN 
1+ 2DUP < 
UNTIL 2DROP ; IMMEDIATE 


FVARIABLE XRATIO 1. XRATIO STO 
FVARIABLE YRATIO 1. YRATIO STO 


: MODE ( ES 
0, 
BEGIN C9 
OVER CASE 


0 OF IF XRATIO STO THEN 
." X-ratio (F) " XRATIO RCL F. 
ENDOF 
1 OF IF YRATIO STO THEN 
." Y-ratio (F) “ YRATIO RCL F. 
ENDOF 
2 OF IF SWAP DUP 84 < OVER -1 > AND 
IF ORIGIN C! ELSE DROP THEN THEN 
." Origin X (I) " ORIGIN Ca . 
ENDOF 
3 OF IF SWAP DUP 80 < OVER -1 > AND 
IF ORIGIN 2+ C! ELSE DROP THEN THEN 
." Origin Y (I) " ORIGIN 2+ Ca . 
ENDOF 
ABORT'! Error! 
ENDCASE 
BEGIN ( *2*) 
KEY CASE 
20 OF DROP 0, ENDOF 
F OF CR DEPTH >R PAD 2+ EXPECT96 
SPAN à DUP 0> 
IF PAD C! PAD NUMBER DEPTH R> - 1 > 
IF DROP OVER 2 < 
IF ITOF ELSE SWAP THEN 
THEN -1 
ELSE R> 2DROP 0 
THEN 
1,0 
ENDOF 
12 OF 1- DUP O< - O 1, ENDOF 
13 OF 1+ DUP 3 > + O 1, ENDOF 
1 SWAP 
ENDCASE 
0= 
UNTIL CR ( *2* ) 
0= 
UNTIL : Ce) 


VARIABLE FUNCTION 


: DRAW (€  -- , draw |__| ) 
" FUNCTION ! 
ORIGIN Ca NEGATE DUP 83 + 
BEGIN 


DUP ITOF XRATIO RCL F* 
FUNCTION @ EXECUTE 
YRATIO RCL F* FTOI RDN 
XRATIO RCL F/ FTOI 
COORDI 
1- 2DUP > 

UNTIL 2DROP : 


DECIMAL 
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JEU DE LA VIE 


Bonjour tout l’monde. Devant la baisse du 
taux d'insultes que le Journal reçoit pour moi, 
relative à la baisse du taux d'articles, je suis 
contraint, au grand regret des anthropologues 
spécialistes en singes volants, d’en pondre un 
nouveau. 


L’ânerie de ce mois-ci consiste à faire un jeu 
de la vie sur HP-71. Comme chacun sait, le 
jeu de la vie se joue sur un quadrillage dans 
lequel on met des "cellules". Chaque cellule a 8 
cases voisines qui peuvent être occupées ou 
non par d’autres cellules. Bien évidemment, on 
appellera voisine une cellule qui occupe une 
case voisine. Le jeu de la vie consiste à 
étudier l’évolution d’une population de 
cellules. 


Une génération est la forme d’une population 
à un instant donné. On peut établir la 
génération suivante en utilisant les règles 
ci-dessous : 

- une case qui à trois ou quatre voisines est 
occupée, à la génération suivante par une 
cellule ;: 

- une case qui n’a ni trois ni quatre voisines 
est vide à la génération suivante. 


Le programme que je vous propose 
aujourd’hui calculera les générations 
successives d’une population dont vous aurez 
donné une génération et les visualisera sous 
vos yeux émmmmerveilllés. Pour l'utiliser, 
c'est très simple. Entrez les deux fichiers 
(Basic et Text), entrez le fichier KEYWAIT, 
célèbre aujourd’hui dans l’histoire de 
l'émancipation assembliste du 71, prenez soin 
d’avoir mis le module Forth et de ne pas avoir 
laissé trainer vos élucubrations forthées dans le 
fichier Forthram, et lancez le programme 
Basic. 


Après une attente de trente secondes, le temps 
de mettre tout en ordre, le programme passe 
en mode édition, c’est à dire qu’il vous 
demande d’introduire la première génération 
de votre population. 


Pour ce faire, vous sélectionnez les cases à 
modifier au moyen des touches fléchées, puis 
vous frappez [ENDLINEJ]. Alors vous choisissez de 
remplir [->] ou de vider t<-] la case. Une fois 
la génération introduite, frappez [ENDLINE] deux 
fois, pour sortir de l'éditeur. 





Le programme vous demande alors si vous 
voulez commencer le calcul (répondre au 
moyen des deux flèches). 


Vous comprendrez facilement la suite, mais 
sachez que le message expansion signifie que 
votre population s'étend en dehors du 
quadrillage que tolère la machine. 


Pour prendre un exemple concret, si la 
génération 0 d’une population est : 


+<* 
xx 


toutes les générations le seront également. 
C’est une population "constante". 


Si la génération 0 à la forme d’un carré de 
trois cellules de coté, la population sera 
périodique (vous ne pourrez le vérifier qu’à la 
main, Car les étapes intermédiaires débordent 
du quadrillage du 71. Toutefois, la partie 
Forth du programme a été prévue pour 
n'importe quel quadrillage, à la condition de 
ne pas essayer de le visualiser. 


Amusez-vous bien avec ce programme, et 
n’oubliez pas de faire part de vos études sur 
ces populations au Journal. 


Serge Vaudenay (124) 


CTABLE {x y---} "x y CTABLE nom! : crée un 
tableau "nom! de dimension x*y bits 

nom : {x y --- d adr} l'exécution de "nom! 
fournie l'adresse et le numéro b du bit de 


l'octet correspondant de La case xy 


Um Um Es Ps 
ft St So Sol St 


CTABLE 
CREATE 2DUP C, C, * 8 / 1+ ALLOT 
DOES> ROT OVER Cd * ROT + 4 /MOD ROT + 2+ 2+ 


( Ba : {b adr---n} retourne l'état n du bit b ) 
( de l'octet adr ) 


: BQ CA 2* SWAP 1+ 0 
DO 2/ 
LOOP 1 AND 


-. 


( B! : €n b adr---} place Le bit b de l'octet  ) 
( adr à l'état n ) 


JPC 42 Page 19 


—  JPC 42 Page 20 


: B! 1 ROT 1+ 0 ( NEANT: €---} vide les tables ) 
DO 2* 
LOOP 2/ 2DUP NOT SWAP C@ AND ROT 2SWAP * : NEANT 
ROT OR SWAP C1! x 0 DO y 0 DO O J I PLP LOOP LOOP TABLE2TO1 : 
( VIEW: £---} visualise TABLE à condition ) 
( dimensions du tableau utilisé par Le programme) ( qu'elle ait La dimension "standard! ) 
DECIMAL 18 CONSTANT x 8 CONSTANT y HEX : VIEW 
X ÿY CTABLE TABLE 0 O0 TABLE 2E328 12 CMOVE DROP : 
X y CTABLE TABLE2 | 
( ?FIN: £---b} si TABLE à La dimension ) 
( PLP: £n x y---} place la case xy de TABLE2 ) ( "standard'", dit s'il y a expansion ) 
( à l'état n ) 
: ?2FIN 
: PLP TABLE2 BI : 1 1 TABLE Ca 0= 0= 10 1 TABLE Ca 0= O= ROT 
2SWAP 2DROP OR x 1- 1 
( RGP: €X y---n} retourne l'état n de la case  ) DO I 1 RGP OR I 6 RGP OR 
( xy de TABLE ) LOOP 


: RGP TABLE Ba : 


( 2PION: €n---b} dit si La case à n voisine ) 
( sera occupée ou non ) 
: 2PION 
CASE 
3 OF 1 ENDOF 
& OF 1 ENDOF O SWAP 
ENDCASE 
: CMTP 










2OVER ROT + >R + R> RGP >R ROT R> + ROT ROT : 


( TABLE2TO1: {---} copie La table 2 ) 


: TABLE2TO1 
O0 O TABLE2 O O TABLE DUP 2- DUP 2- Ca SWAP Ca 
* 8 / 1 + ROT DROP CMOVE DROP : 


( T+1: £---} calcule La génération suivante de ) 
( TABLE 
e T+1 x 1- 1 
DO y 1- 1 
DO 0 JI 
-1 -1 CMTP 
O0 -1 CMTP 
1 -1 CMTP 
-1 O CMTP 
1 O CMTP 
-1 1 CMTP 
O0 1 CMTP 
1 1 CMTP 
ROT ?PION ROT ROT PLP 
LOOP 
LOOP TABLE2TO1 


REFRACTAIRE 


Convertir un nombre décimal en fraction a été 
résolu deux fois dans JPC : 


- en Basic par Pierre David (JPC 20) : fichier 
FRAC ou sous-programme FR. 


- en Forth par Alain Herreman (JPC 34) : mot 
Forth FRC. 


Alors voici le troisième larron : le mot Basic 
FRACS. 


Quelques concernant FRAC et 


FRC : 


remarques 


- FRAC (Pierre) : au lieu de INTEGER A,B 
faire DIM A,B (et donc DIM A,B, X) si l’on 
ne veut pas déclencher des rafales d’overflow 
Ou de /Zero ou obtenir  9.00001 -> 
99999/99999 ! pour la précision de 10-$. 
Depuis sa publication, l’auteur avait d’ailleurs 
remédié à cela. D'autre part pour une 
précision de 107$ on obtient : 

4.000001 -> 4000001/1000000 

3.999999 -> 4/] 

4.0000003 -> 13333333/3333333 

on aurait préféré la même réponse logique 
4/1. 


- FRC (Alain) : si l’algorithme utilisé est très 
simple et a l’avantage d’être compréhensible 
par tous, il pêche par sa lenteur à partir de 3 
décimales (3.14159 FRC : pas encore de 
réponse au bout d’une demi-heure !). 


Côté expression des résultats, il me semble 
préférable d’avoir 4 au lieu de 4/1. 


FRACS utilise le même type de 
programmation que FRAC (Pierre) mais sans 
les inconvénients cités. 


Deux options sont possibles choix d’une 
précision absolue ou du nombre d’itérations de 
la routine. 


Rapidité et confort se paient : coût 300 octets 
environ. 


oo 





MODE D'EMPLOI 


FRACS : 
conversion d’un nombre décimal en une chaîne 
alphanumérique de l’approximation 


fractionnaire ou non de ce nombre. 


syntaxe : FRACS (NW) 
précision implicite : 

si [IN] >= 1 : 10-10 

si IN] <1 : 10-10+exposant de N 


syntaxe : FRACS (NW ,n) 
1 <= n <= 99 précision optionnelle 107" 
sin =0 Titan impose la précision implicite 


syntaxe : FRACS(N ,;-n) 
1 <= n <= 99 ordre de l’approximation 
ou nombre d’itérations de la routine plus une 


EXEMPLES 


FRACS (5) 


-> 5 


FRACS (PI,12) 
-> 1146408/364913 
(valeur : PI, delta = 0) 


FRACS (PI,2) 
-> 22/7 (une vieille connaissance) 
(valeur : 3.1428..., delta = 1.26..E-3) 


FRACS (PI) 
-> 312689/99532 
(valeur : PI+(3E-11), delta = 3E-11 ) 


FRACS (-1.25E-15) 
-> -1/8.E14, delta = 0 


FRACS(4.001,3) 
-> 4, delta = -1E-3 


FRACS(4.001,4) 
-> 4001/1000, delta = 0 


FRACS(3.999,3) 
-> 4, delta = 1E-3 


FRACS(3.1031031031) 
-> 3100/999, delta = 0 


A$=FRACS (SQR(2),2) 
B$=FRACS(SQR(3),2) @ 
DISP "( "&AS&" ) / ( 

> ( 17/12 }) / € 19/11 ) 

(valeur : 0.82017..., delta = 3.67..E-3 


2) @ 


"£&BSE&"! ) LL 
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FRACS(5/7+8/9-13/11) 
-> 292/693, delta = 0 


FRACS(PI,-2) 
-> 22/7 


FRACS(PI,-3) 
-> 333/106 


FRACS(PI,-10) 
-> 1146408/364913 
valeur PI 


Je dois remercier ici Pierre David qui m'a 
remis sur le droit chemin : j'avais créé un mot 
FRAC(N) qui ne savait qu’'afficher des 
résultats, ceux-ci n'étant pas récupérables. 
Janick Taillandier, à qui je. dois la routine 
A2STR, a été l'artisan de la fiabilité de 
FRACS car il a su trouver les contre-exemples 
qui mirent cette fonction en difficulté dans ses 
premières versions. 


ANNEXES 


1- FRC (Alain) est lent car si N = A/B le 
nombre d’itérations est égal à min(A,B) et 
Forth perd sa rapidité car FRC calcule en 
virgule flottante donc avec les routines du 
Basic. A tout cela s’ajoute le type de précision 
qui est pénalisant. 


FRC demande que : 


| A - B/NI<= 107" 
d'où |A/B-N|<=|10"/B| 


donc c’est une précision relative. 

Par exemple, si B>10$ et n=6, la précision 
absolue correspondante est d’au moins 10712 ! 
Ceci nous vaut des gags du genre : 

3/82646281 -> 6/165292562 

2- l'algorithme des réduites de fractions 
continues, utilisé pour FRAC et FRACS n'est 


pas simple, aussi voici quelques explications. 


Soit un nombre décimal : N = INT(N) + FP(N) 


posons Hg = N 
FPCN) = 1 / H4 
Ho = 29 + 1/H4 
d'où H4 = 1 / C Hg - INTC Hp ) ) 


avec ap = INT( Hp. ) 
H; _ a4 + 1 / H5 
d'où H5 = 1 / ( H; ; INT( H; ) ) 
avec a4 = INT( H4 ) 
etc... | Hisy = 1/ CHi - INTCH, D) | 


| a;+1 = INT( h; ) | 


et N = ap + 1 
a4 + 1 
a + 1 
az V ssue 
posons N-1=1 D-1=0 etc. éi. 
réduites successives : 
Les 
jère 0 s eu 
D) 1 
N: 1 a4*ap + 1 a4“Np + N-1 
2eme . = ap += mme = mm 
D4 a4 a4*1 + 0 a4*D) + D-1 
N>5 1 a *( a4“ap + 1 ) + 9 
3ème …. = 2) + -----. = msn 
D; a4 + 1 a*a4 F1 
82 
a2"N4 + No 
a*D: + Do 
@tC... ++... 
UONieg  ajs" Ni + Ni | 
N, Te réduite J ---- æm essooossccsn..e | 
| Disg aj,3*0i + Di.4 | 


On démontre que N;,, / D:,, converge vers N. 


EXEMPLE 


N = 3,14 = 3 + 0,14 


jère 


approximation : 
No / D =3/1 delta = 0,14 
H4 = 1 / 0,14 = 7,1428... 
a4 2 7 





D approximation : 


(7*3+1)/(7*1+0) 
er delta = -2,85..E-3 
H> = 1 / 0,1428... = 6,99..986 

as = 6 


N1 / 0: 


3ème approximation : 
W /D =(C62+3)/(6*7+1) 
= 135 / 43 delta = 4,65..E-4 
Hz = 1 / 0,99..986 = 1,00..01 
83 = | 
4ème approximation : 
Nz / Dz = ( 1*135 + 22 ) / ( 1*43 +7) 


157 / 50 delta = 0 


La convergence est obtenue : N = N3 / Dz 





ORGANIGRAMME DE FRACLEX 


[1 ou 2 par.num. 


| 
[D-1 = 0 -> R2 | 
[Do =1->R1 | 
[N-1 = 1 -> RO | 
Fee | 
NON /------so.. NOUFI f--=---sssssrae \ oui 
--< 2 paramètres ? >--->--| n<07? >| 
NT PT EEE / Fer Nr rer [| 
| non | 
*AOS* | | 
jHrsessressssss. | péter Pet 
[param. option. [-<-| | S1 = 1 LS 
| P = précision | | [------------.-. re 
[| = 10*"(-n) | | | | 
[1 = nombre [ ---.. C--rOrereçrsesies | 


|  d'itérations| 


ll 
. 
2 


— = = + ee ms © um eus + es em em ou em 


[pour accès à lal 
| scratch math | 


| | flottante | 


*POPN* | [->-| n = 10*(-10) | 
Free po DE frrsesssssenses | 
|->-[  pope N Fo | 
fesse psc | 
| |: frésaséencessess \ non 
| | | Net? > 
LEE \nonf, |-----: CF [| 
[param. option.? >--| | oui | 
Fo) | | 
| oui [soc LT 
*PARAM* | [n=10"(-10+expos| | 
Fret | | den» | | 
| Sauvegarde DO |-<-| | précision | | 
| 
| 


| stack | 
| signe de N et | 
[2ème paramètre | 
|[->scr.mathstack| 
[ABS(N)->scrmath| 
[ABS(N)-> dito | 
| =ABS(Ho) | 


[boucle de tests] 
| et calcul | 
Ide Ni+1 et Di+1| 
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[osssssocussese \ non | delta = | 
|->-[| param. itéra.? >-->---][]Ni+1/Di+1 - N|| 
je Ver / Pre eee | 
| oui | 
| NON /----sssoscose | 
Dern ire < delta<=précis.?| 
| rt Vorsna fe | 
*ITER* | [oui 
ce | | 
|  FPCABS(Hi) | Y 
RS | | 
| *OUT* | 
inner ss NUE, fige | 
|  FP=072  >-->---| RESULTAT 
em Apres / [Pre re | 
[non 
| 
éreennes: | 
[Hi+1 = 1/FPCHi)| 
[arrondi de 15 à| 
| 12 digits | 
[ai-1 = IPCHi-1)| [-----.......... | 
[Ni+1 =ai+1#Ni+1]  ]->-| 1=1+1 1] 
| En Pere | 
[Di+1 =ai+1*Di+1| | | 
| PO EI 
DO Mfe1 ZDieT À Os drsssesmreusess | 
Jrssococooscc.e | | | 1=07? \oui 
| | | dernière 
| | | itération ? / 
[arr rers \out,,, 17" LÉ | 
| param. itéra ? >--| | non 
fees Apr / | 
| non Y 
losose <--... O-----...... Coms... | 
*OUT* 


[récupération du| 
| signe de N et | 


| de DO | 
Jesse. | 

| 
[tan RSsen res \oui 
|  Di+1=172  >-- 
penssns Norte / 

| non 
*DIF1* | 


|sur math stack 


| résultat et 


| 
| 
| en format STD | 
| 
| 


[retour à Basic 


|[->- [nombre -> math | 


| Di+1 -> chaîne|---| 


inversée | 


lajoute en-tête | 
[RESULTAT ->BASIC | 
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stack| 


|-> chaîne alphal 
| en format STD | 
[sur math stack |---<---|->chaîne invers| 
INi+1 dito Di+1 | 


[en-tête enlevée] 


1 


D mn um um 


AD2-12 
ADHEAD 
CLRFRC 
DSPFMT 
DV2-12 
EXPR 
FUNCDO 
MP2-12 
POPIR 
RCLW1 
RCLW2 
RCSCR 
REVS 
SPLITA 
STR$SB 
STSCR 
TST12A 
URES12 
XINV15 
XXHEAD 
XYEX 


FRC 


LEX 


[D 
MSG 
POLL 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


ENTRY 
CHAR 
KEY 
TOKEN 


ENDTXT 


NIBHEX 


* 


ADOEX 
D0O=(5) 
DATO=A 
C=C-1 
C=C-1 
C=0 
R2=C 
p= 
C=P 
R1=C 
RO=C 
ST=0 
GOC 
GOSBVL 
* 
D1=D01+ 
?A=0 
GOYES 


* 


ST=1 





"FRACLEX" 

#E1 

0 

0 

#O0OC35F . 

#18187 

#0C6F4 

#2F6DC 

#OC4A8 

#0F23C 

#2F8BB 

#0C432 

#0E8FD 

#0E981 

#OE9BE 

#0E954 

#1B38E 

#O0C6BF 

#18149 

#0E92C 

#0D476 

#0C994 

#0C33E Normalement 1/X15 

#1AG4E 

#0C697 

FRC 

#F 

'FRACS! 

88 

8812 mini : 1 param. maxi 2 
param. numériques 
sauvegarde DO 

(FUNCDO) 

A 

S décrémente Le nombre 

S de paramètres 

m 
D-1 = O0 -> R2 

1 

14 
Do = 1 -> R1 
N-1 = 7 -> RO 

0 repère paramètre précision 

POPN 1 seul paramètre alors POPN 

POPIR pope et teste n (précision 
ou nombre d'itérations) 

16 actualise D1 

S paramètre précision ? 

AOS oui alors on conserve le 
repère précision (S0=0) 

0 repère itération 


AOS 


aslca 


POPN 


PARAM 


LOOP 


PREC 


A=0 
?A=0 
GOYES 
ASLC 
ASLC 
ASLC 


GOSBVL 
?2C#0 
GOYES 


* 


* 


LCHEX 
C=C-A 
LCHEX 
GONC 


C=C+A 


DAT1=C 


+ 
x 
« 
A=0 
GOSUB 


* 


GOSUB 
* 
GOSUB 
R3=A 
?ST=0 
GOYES 
A=DAT1 
* 
A=A+1 
GOC 


* 


DAT1=A 
x 

GONC 

GOSUB 


* 


N  Ù  # *# * 


C=DAT1 
x 

C=0 

pP= 

GOSBVL 

GOC 


S 
X 
aslc2 


POPIR 
B 
PARAM 


499 
X 

990 
PARAM 


un 


S 
STO 


stscr 
cirfre 
0 


PREC 
B 


out 


ITER 
A-1S 


S 

3 
TST12A 
out 


ITER 


1 seul digit ? 
oui alors shift 2 fois 
non alors shift 3 fois 
out 
ici A(GB)=n 
C(W) = 10°n 
C(W) = 10*(-n) 


pope et teste N 

C(B) = n ? 

oui alors précision donnée 
ou nombre d'itérations 
demandé 


C(X) = 499 - exposant de N 
C(W) = 10*(-10) 

exposant de N > 0 alors 
C(W) = précision 

exposant < O0 alors préc. 
flottante 10*(-10 + expos. 
de N ) 


récupère Le signe de N 
sauve le signe de N et le 
paramètre précision ou 
itérations sur La math 
stack 
A(W) = ABS(N) 
sauvegarde dans la scratch 
math stack 
sauvegarde de ABS(Ho) = 
ABS(N) 
A(W) = IP(ABS(N)) 
IP(ABS(N)) = ABS(No) -> R3 
option précision ? 
oui saut au test précision 
A(B) = - paramètre 
itérations 
incrémentat ion 
dernière itération 
alors résultat 
sauve le nombre 
d'itérations restantes 
saute le test précision 
A(W) = -IP(ABS(N)) 

ou -ABS(Ni/Di) 
X = ABS(N) 
AW) = ABS(N) 
X = ABS(N) - ABS(Ni/Di) 


OUT 


= delta 
A(W) = ABS(delta) 
C(W) = précision et signe 
de N 
C(W) = précision 


pour TEST12A 
ABS(delta) <= précision ? 
oui alors résultat 


GOSUB 
GOSBVL 
GOSUB 


GOC 
GOSUB 
GOSBVL 
GOSBVL 


* 


GOSUB 
x 

GOSBVL 

GOSUB 


E 
“ 
C=R3 
GOSUB 
C=RO 
GOSUB 


* 


AR3EX 
x 
RO=A 
GOSBVL 
GOSUB 
C=R1 
GOSUB 
C=R2 
GOSUB 
AR1EX 
R2=A 
GOSUB 
A=B 
C=R1 
GOSBVL 


GOSUB 
= 


* 


GOTO 


A=R3 
C=DAT1 
A=C 
R3=A 
DO=(5) 
C=DATO 
DO=C 
C=R1 


C=C-1 
C=C-1 


ST=0 
GONC 


GOSUB 


GOTO 


AR3 
RCLW2 
cirfre 
OUT 
A-1S 
SPLITA 
XINV15 
ROUND 


RCSCR 
STOfrc 


mpe - 12 


AD 


RCLW1 
clrfre 


mp2 - 12 


AD 


AR3 


DV2-12 
ROUND 


LOOP 


z 


(FUNCDO) 


A 


Ni -> scratch math stack 
X = ABS(Hi) 
A(W) = IP(ABS(Hi)) 


FP(Hi) = 0 alors résultat 
ACW) = FP(ABS(Hi)) 


AÇW) -> X 
X = 1/FP(ABS(Hi)) 
= ABS(Hi+1) 


ABS(Hi+1) arrondi à 12 
digits -> A(W) 

fait La place pour Hi+1 
ABS(Hi+1) -> scr. math st. 


puis A(W) = IP(ABS(Hi+1)) 
= ai+1 

C(W) = ABS(Ni) 

A(W) = aï+1 * ABS(Ni) 

C(W) = ABS(Ni-1) 


A(W) = ABS(Ni+1) 
= ai+1*ABS(Ni)+ABS(Ni-1) 
R3 = ABS(Ni+1) 
A(W) = ABS(Ni) 
RO = Ni remplace Ni-1 
X = ABS(Hi+1) 


A(W) = ai+1 

C(W) = Di 

A(W) = aiïi+1 * Di 

C(W) = Di-1 

ACW) = Di+1 = aiïi+1*Di+Di-1 
R1= Di+1  ACW) = Di 


R2 = Di remplace Di-1 

X = ABS(Ni+1) -> scr.mstack 
A(W) = ABS(Ni+1) 

C(W) = Di+1 

X = ABS(Ni+1}) / Di+1 

A(W) = ABS(Ni+1)/Di+1 
arrondi à 12 digits 

scrmstk -> ABS(Ni+1) -> R3 


A(W) = ABS(Ni+1) 
C(S) = signe de N 
ACW) = Ni+1 

R3 = Ni+1 


récupération de DO 


CCW) = Di+1 


si Di+1 = 1 alors carry 
nécessaire pour STR$00 
les blancs sont supprimés 
Di+1 # 1 alors résultat 
avec Di+1 

Ni+1 ou N en chaîne 


et fin 
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DIF1 


expr 


REVST 


STOfrc 
cirfre 
A=B 


mpe - 12 


AR3 
STO 
stscr 


ROUND 


AD 


A2STR 


A=R1 
GOSUB 

« 

# 
C=R1 
RSTK=C 
LCASC 
D1=D1- 

x 
DAT1=C 
A=R3 
D1=01- 

# 


GOSUB 


GOSBVL 
GOSBVL 
GOVLNG 


GOSUB 
GOSBVL 
p= 
GOVLNG 


GOSUB 
GOSBVL 
A=B 
RTN 


GOSBVL 
GOTO 


A=R3 
GOSBVL 
GOVLNG 


GOSBVL 
x 
A=C 
GOSBVL 
C=D 
R3=C 
RTN 


A=A-1 
GOSBVL 
A=B 
GOSBVL 
A=0 
GOTO 


DAT1=A 
AD1EX 


REVST 


REVST 


ADHEAD 
REVS 
EXPR 
A2STR 
REVS 

0 
XXHEAD 
STO 


CLRFRC 
M 


MP2-12 
A=B 


SPLITA 
STSCR 


URES12 


RCSCR 


RCLW2 


AD2-12 


A=B 
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ACW) = Di+1 

Di+1 sur La math stack -> 
chaîne alpha inversée 

-> en-tête enlevée 

C(A) = D1 (fin de chaîne) 
sauve D1 sur pile retours 
C(B) = / 

prépare La pile à recevoir 
/ 

/ sur la pile 

AÇW) = Ni+1 

prépare la pile à recevoir 
Ni+1 

Ni+1 -> pile -> chaîne 
alpha -> chaîne inversée 
-> entête enlevée 

on récupère D1 (fin de 
chaîne 

RICA) = D1 (fin de chaîne) 
nécessaire pour ADHEAD 
ajoute l'entête 

renverse La chaîne 
résultat et retour au BASIC 


converti A(W) 

chaîne inversée 
nécessaire pour XXHEAD 
en-tête enlevée 


A(W) -> scr. math st. 
X = IP(X) 
X -> A(W) 


X = A(W) * C(W) 
X -> A(W) et retour 


A(W) = ABS(Ni) 
AÇW) -> X 
X -> scr. math st. 


X 15 digits -> C(W) arrondi 
à 12 digits 


scr.mstack -> ABS(Ni) -> Y 
Y -> C(W) 
ABS(Ni) -> R3 


positif -> négatif 

X = 2e niveau scr.mstack 
X -> A(W) 

X = ACW) + C(W) 

valeur absolue 

X -> A(W) et retour 


nombre sur la pile 
sauve D1 








D1=(5) (DSPFMT) 


C=DATI S C(S) = format courant 
R4&=C sauve dans R4(S) 

C=0 A impose le .. 

DAT1=C 1 .. format STD 

AD1EX restaure D1 

GOSBVL =STR$SSB fait La conversion 
AD1EX sauve D1 

D1=(5) DSPFMT 

C=R4 

DAT1=C S restaure Lé format courant 
AD1EX restaure D1 

RTN 

END 


Et bien fractionnez maintenant... 


Guy Toublanc (276) . 





FRACSTORY 


La conversion d’un nombre décimal en 
fraction a été abordé (côté Lex) dans l’article 
"Réfractaire" de ce JPC. Ce titre faisait 
allusion à différentes difficultés rencontrées. 


Je voudrais attirer l’attention sur les solutions 
et leurs limites d’utilisation. En effet, sauf cas 
favorables, nous n’obtiendrons que des 
approximations car les résultats sont tributaires 
des arrondis successifs et du nombre de 
chiffres acceptés par les registres du 
microprocesseur. 


Si Titan calcule avec des mantisses de 15 
chiffres, les entrées et les sorties se font après 
arrondi et troncature à 12 chiffres. 


Deux exemples typiques : 


1/999997993279 1l/RES -> 999997993274 


1/999997993270 1l/RES -> 999997993274 


donc le douzième chiffre n’est pas fiable : 
1/82646281E4 1l/RES -> 826462810002 


Aussi ne comptez 
miracle vous donne : 


pas qu’un algorithme 


FRACS (1/999997993277) -> 
1/9999979993277 


FRACS (1/82646281E4) -> 
1/826462810000) 


FRACS$ (9999999967/82646303) -> 
9999999967 /82646303 


Pour cette dernière donnée FRACS renvoie : 
1677389/13863 pour delta = 0, car avec 12 
chiffres ces 2 fractions sont équivalentes. 
Pour expérimenter et y voir plus clair je vous 
livre un tout petit fichier Basic TFRAC. 


MODE D’ EMPLOI DE TFRAC 


Nécessite FRACLEX. 


CALL PFRAC(N) 


Le. 





Renvoie les différentes fractions équivalentes 
à N pour une précision de 107! à 10" jusqu’à 
ce que delta = 0 une pression sur une touche 
autre que [CATIN] arrête la routine et renvoie la 
dernière approximation avec émission d’un 
BEEP. 


CALL AFRAC(N) 
Renvoie les fractions équivalentes à N de la 


1*Te itération jusqu’à ce que delta=0. Pression 
sur une touche : dito PFRAC. 


EXEMPLES 


CALL PFRAC(PI) 


p 1 22/7 
- 3 3.14 
p 2 22/7 
-.3 3.14 


p 3  333/106 
5  3.1415 


p é 1146408/364913  3.14159265359 0.00 

donc affichage successivement de : 

la précision imposée : 

1071 -> p 1 à 10712 -> p 12 

et la fraction correspondante ; 

sur la 2ème ligne : 

- delta : n,....E-j -> -); 

et la valeur de la fraction arrondie à j-1 

Après interruption affichage de tout ceci mais 


avec delta exprimé en FIX 2. 


CALL AFRAC(PI) 


> 


a 1 3 

- 1 3.08 
a 1 22/7 
- 3.14 
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a è 333/106 
ur 3.1415 


a 10 1146408/364913 ...dito PFRAC... 


On voit que FRACS vient à bout de PI en 9 
itérations alors que pour FRC (mot Forth de 
Alain Herreman) il faudrait plus de 364913 
itérations ! 

J'espère avoir apporté quelques 
éclaircissements et donné un outil assez fiable. 


Guy Toublanc (276) 


POUR DEBUTER 
EN BOUCLE ET TEST 


on veut 
(espaces 


Soit à résoudre ce problème 
connaître le nombre de lettres 
compris) dans une phrase ou un mot. 


- La variable de comparaison est LS. Elle 
contient la lettre que l’on veut compter. 


- La boucle est construite avec les ordres 
FOR … TO et NEXT, dont le compteur est la 
variable D, la valeur de celle-ci étant définie 
par l’ordre LEN(P$). LEN est l’ordre 
permettant de compter le nombre de 
caractères, P$ est la variable contenant la 
phrase. La longueur de P$ est au maximum de 
32 Caractères. Pour prendre en compte une 
phrase dont le nombre de caractères est 
supérieur à 32, on ajoute en début de 
programme l’ordre DIM. On ajoute en début 
de programme l’ordre suivant : DIM PS[X]. 
X représentant le nombre de caractères que 
l’on veut allouer à la variable PS. 


- La partie du programme permettant la 
comparaison est construite avec IF … THEN. 
Le compteur est la variable N suivant THEN 
sous la forme N=N+1. IF, lui, est suivi de la 
variable P$S[I,I]. En effet, pour prendre 
Caractère par caractère, il faut prendre (à 
défaut des ordres MIDS$S, LEFTS, RIGHTS) 
P$[I,I],ce qui m'a posé un problème, mais 





je me suis rappelé de l’article de Pierre David. 
(JPC 13 et 14) sur les ordres Basic du 71. 
Donc, P$[I,I] prend la sous-chaine P$ 
composée des caractères indiqués par les 
variables I. Comme elles ont la même valeur 
on se déplace bien de lettre en lettre à chaque 
itération de la boucle. 


Enfin, en finale, on donne le résultat en 
imbriquant les deux variables (L$ et N) dans 
une phrase. 


En espérant que cet article permettra aux 
débutants de progresser. 


Alain Gillet (199) 


AGENDA 


Une désignation générale du HP-71 est 
ordinateur de poche. Mais vous avouerez tout 
de même qu’une fois que le HP-71 se trouve 
dans votre poche, il n’y a plus guère de place 
pour autre chose. Alors, plutôt que d’agrandir 
vos poches ou de vous en rajouter dans le dos, 
je vous propose un petit programme qui fera 
de la place dans votre poche. Non, votre 
HP-71 ne sera pas transformé en portefeuille 
(bien que de temps à autre j'aimerais qu’il me 
distribuât quelques billets). Je ne crois pas non 
plus qu’un policier vous demandant vos 
papiers (cela se fait beaucoup ces jours-ci) 
apprécierait si vous lanciez RUN IDENTITE 
la machine affichant vos nom, adresse en 
certifiant que ces informations sont conformes 
à votre carte d'identité. Je vous propose 
simplement un programme qui remplacera 
votre agenda sur une durée de quinze jours. 
Ce programme est très pratique, presque 
utile ! 


En plus d’être utile ce programme comporte 
autre chose d’assez exceptionnel : il utilise un 
Lex ! (le Lex DATELEX de François Le 
Grand dans le JPC 31 page 35). Vous avouerez 
que nombreux sont les Lex dans JPC et peu 
nombreux sont les programmes en Basic qui 
les utilisent. 





En lançant ce programme, le 71 vous demande 
un jour : si le jour que vous désirez est un des 
sept suivants tapez simplement le jour 
(“mercredi" par exemple), si ce jour 
n'appartient pas aux sept jours qui suivent, 
tapez en plus "en 8" ("mercredi en 8" par 
exemple). Si le jour qui vous intéresse est le 
Jour même, tapez simplement [LENDLINEJ. Ceci 
étant fait, un point d'interrogation s’affiche (si 
vous voulez mieux comme affichage je vous 
laisse faire), vous avez alors trois possibilités : 


- vous désirez rentrer un rendez-vous, alors 
tapez simplement votre texte puis LENDLINE]. 

- vous voulez consulter le programme du jour 
choisi, tapez directement  [LENDLINEJ, alors 
s'affichent, un par un, vos rendez-vous (vous 
tapez sur [ENDLINE] pOur passer au suivant) si 
vous ne désirez pas tous les faire défiler tapez 
sur la touche tF1. 

- vous voulez annuler un rendez-vous, alors 
tapez annulation : vos rendez-vous 
s'affichent avec des numéros de ligne. A la fin 
la machine vous demande Annulation Ligne n, Si 
vous ne désirez plus rien annnuler, tapez 101. 
Comme précédemment vous pouvez éviter de 
tout faire défiler en tapant sur tF1. 


Si vous ne voulez plus jouer avec votre agenda 
tapez fin à la question jour:. Par jour, le texte 
est limité à 255 caractères. Vous pouvez très 
facilement changer cette limite, mais si vous 
dépassez la limite fixée vous aurez le droit à 
Journée surchargée !. 


Pour utiliser ce programme AGENDA, il vous 
faut créer un fichier AGENDAF : 
CREATE DATA AGENDAF, 16 
puis stocker dans le premier enregistrement la 
date du jour où vous rentrez ce programme : 
ASSIGN #1 TO AGENDAF 
PUIS : 
PRINT #1,0;jj.mmaaaa 
et enfin remplir de blancs les 
enregistrements en exécutant : 
FOR I=1 TO 15 @ 

PRINT #1,I;"" @ 

NEXT I 
et pour terminer : ASSIGN #1 TO * 


autres 


Je pense que ce programme est assez simple 
pour se passer d’explication. N’hésitez pas à le 
modifier à votre convenance. 


Alain Herreman (200) 





qu'il est utilisé par 





DESSINE-MOI UN AUTRE 
MOUTON... 


Vous vous souvenez de GRAPHLEX et du 
programme en Basic qui l’accompagnait ? Bon, 
d'accord, c'était en Juin (JPC 35 page 38), 
autant dire déjà assez loin. N’empêche, ce 
programme est vraiment très pratique (merci à 
son auteur, Pierre David !), sauf peut-être 
pour la gestion des données. En effet, ce sous 
programme ne gère pas les données, et il est 
rapidement apparu nécessaire de pouvoir : 


- sauvegarder ces données dans un fichier 
séparé, 

- éditer ce fichier de façon interactive (c’est à 
dire ajouter ou retirer des données), 

- enfin, échanger ces données avec d’autres 
logiciels, statistiques par exemple, qui sont 
"beaucoup moins doués du côté des 
graphiques". 


Le standard en la matière étant "HPAF", c’est 
bien entendu lui qui a été choisi. Rappelons 
les modules Finance, 
Ajustement de courbes, Circuits et Query71, 
qu’il a déjà été décrit dans ces colonnes (par 
Michel WEIL, voir JPC 30 page 12), et que 
son usage est fortement recommandé par HP. 
Il existe, comme agrément supplémentaire, 
d’excellents utilitaires de manipulation ou 
reconditionnement de ces fichiers (cf. 
Bibliothèque de Corvallis : Data Management 
Pac et HPAF Utilities), qui peuvent tenir au 
large dans une Eprom 32 Ko... 


Rappelons aussi qu’un fichier HPAF est un 
fichier Data, donc utilisable avec Basic, auquel 
on a ajouté un en-tête spécial (qui permet 
certains contrôles et reconnaissances 
automatiques, et donne la disposition des zones 
alpha et numériques dans la ligne, la longueur 
du fichier, etc.), plus à la fin du fichier un 
"bloc descripteur" contenant des animaux un 
peu particuliers, les "Tags" (Tagex Octivorus 
V.). Ce bloc est d’ailleurs facultatif, nous 
l’utiliserons pour loger titre et légendes... 


Le programme proposé contient donc un 
"éditeur", qui permet de créer, rapatrier ou 
modifier un fichier HPAF au format voulu, et 
utilise des "menus" à dessein très proches de 
ceux de l'éditeur contenu dans le module 
d'ajustement de courbes. Il contient donc les 
blocs KBD (saisie au clavier), LOAD 
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(chargement et modifications éventuelles) et 
SAVE (transformation de la matrice de 
données en fichier HPAF), plus une routine 
pour les légendes et un bloc de listage de 
contrôle (PRINT). IL peut traiter des fichiers 
contenant ou non un "descriptor block", mais, 
travaillant sur une matrice de données, il 
ignore les zones de type chaîne. En revanche, 
il n’a pas besoin de DATALEX pour insérer 
ou supprimer des enregistrements ou les 
redimensionner. 


La structure du fichier est la suivante (une 
ligne de données par année) : 


No.enreg. | Contenu 
dass Jesse. 
0 | HPAFNNN...(B fois, nombre de 'barres!) 
1 | <A, nombre d'années> 
è | <A+3, position du 1er !Tag'!> 
3 à A+2 | données (une ligne par année, 
| une zone par ‘'barre!) 
| Début du 'Descriptor Block', contenant: 
A+3 | Tag "TITLE" 
A+4 à | Tags "LEGENDS" (un par ligne) 
A+B+3 | 


A la suite de l'éditeur, on retrouve le 
sous-programme GRAPH de Pierre David 
(avec les mêmes noms de variables et numéros 
de lignes), toujours limité à 6 types de barres 
(voir son article si vous désirez en mettre 
davantage, ce que l'éditeur permet sans 
modification), mais avec un nombre 
quelconque d’années. 


L'exemple joint montre que l’on peut faire un 
usage très professionnel et sérieux de ce 
logiciel (analyse de l’évolution comparée du 
trafic annuel SNCF pour chacune des deux 
classes). Pour ma part, je rêve de pouvoir un 
jour disposer (comme on approche du 
bi-centenaire de 1789, l’heure est aux cahiers 
de doléances.…) de barres empilées, de barres 
allant de part et d’autre de zéro, voire d’un 
"super-Lex graphique" permettant d’utiliser la 


2225B pour tracer des courbes (pour le 
moment, je fais de la recopie d’écran 
graphique avec la Pac Screen). Mais ça 


nécessitera une reprise en profondeur de la 
routine GRAPH et du programme, à tout le 
moins... 


A bientôt pour la suite, donc... 


Eric Gengoux (108) 
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Programme "VIEB" (Jeu de La Vie, nécessite FORTH + Lex KEYWAIT) 


- Programme de jeu de la vie. 
par Serge Vaudenay. 
Pour HP-71B et FORTH ASSEMBLER 
40 CALL VIE 
- Clavier: CALL KEYT(x0,y0,x,y) x0,y0=curseur: x,y=bord. 


50 SUB KEYT(XO,YO,X,Y) 

55 FORTHX "RGP",X0,YO à DISP USING '"Case!X,2D,X2D,":"XK':X0,YO,CHR$(79-37*FORTHI) à ! message 
60 K$=KEYWAITS 

65 ON POS(' #47 #48 #50 #51 #159#160#162#163! ,K$)/4+1 GOTO 125,70,75,85,80,90,95,105,100 
70 X0=X0-1 à GOTO 110 à ! gauche 

75 X0=X0+1 à GOTO 110 à ! droite 

80 YO=Y0+1 à GOTO 110 à ! haut 

85 YO=YO-1 à GOTO 110 à ! bas 

90 X0=1 à GOTO 110 à ! bord gauche 

95 X0=X-2 à GOTO 110 à ! bord droit 

100 YO=Y-2 à GOTO 110 à ! bord bas 

105 YO0=1 à ! bord haut 

110 IF XO<1 THEN X0=1 ELSE IF X0>=X-1 THEN X0=X-2 à ! milieu 

115 IF YO<1 THEN YO=1 ELSE IF YO>=Y-1 THEN YO=Y-2 

120 GOTO 55 à ! si vous n'avez pas suivi GOTO 30 

125 END SUB à ! fin 


135 SUB VIVIE 
140 FORTHX x y! @ Y=FORTHI à X=FORTHI à CALL KEYT(O,0,X,Y) 
145 END SUB 


- aide La vie! Pour faire La culture 


155 SUB EDVIE 
160 FORTHX x y! @ Y=FORTHI @ X=FORTHI Q X0=1 à YO=1 
165 DISP CHR$(27)&'<! @ FORTHX VIEW! Q CALL KEYT(XO,YO,X,Y) 
170 DISP USING 175:;:X0,YO,CHR$(27)&'>- *}'&CHRS(B)ECHRS(B)ECHRS(B)ECHRE(B) 
175 IMAGE #,'Case!,X2D,X2D,X!' €O 'K 

- demandez le sous titre a monsieur Hewlett. 
185 ON POS(' #47#481 ,KEYWAITS)/3+1 GOTO 200,190, 195 
190 DISP à DISP USING "19!O01" Q FORTHX "PLP TABLE2T01",0,X0,Y0O à GOTO 165 
195 DISP à DISP USING "191*1 4 FORTHX "PLP TABLE2T01",1,X0,Y0 à GOTO 165 
200 DISP CHR$(27)&'<!' à END SUB 

- Début du programme (pour La fin: voir lignes précédantes) 


210 SUB VIE 
215 WINDOW 1 
220 DISP !'-- Un instant S.V.P. "&CHR$(27)&'>'&CHR$S(27)&'Q! 
- Charge le programme FORTH (30" environ) 
230 SFLAG -1 à PURGE FORTHRAM à CFLAG -1 Q FORTHX '" VIE" LOADF! 
235 FORTHX 'NEANT! 
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240 WINDOW 1 à DISP CHR$(27)&'<'&CHRS(27)8'R-- Edition du tableau.! 
245 DISP à WINDOW 1,19 
Edition 
255 CALL EDVIE @ FORTHX ‘?FIN' @ IF FORTHI THEN 300 
260 DISP CHR$(27)&'<-- Tableau:' à FORTHX 'VIEW! Q WAIT 1 
- Vérification 
270 DISP CHR$(27)&'>'&CHRS(27)&'R? O.K. ( O - N )'&CHRSC(B)ECHRE(B)ECHRE(BIECHREBIECHRE(E) 
275 ON POS(' #47#48! ,KEYWAIT$)/3+1 GOTO 320,285,305 
- Calcul de La génération suivante 
285 DISP !'-- Calcul... l&CHRS(27)&'>'&CHRS(27)&'Q! à FORTHX !'T+1 VIEW! 
- Teste les débordements 
295 FORTHX '?FIN' à IF NOT FORTHI THEN 260 
300 DISP !-- Expansion...'&CHR$(27)&'<! à WAIT 2 
305 DISP CHR$(27)&'>'&CHRS(27)&'R? Encore ( O - N )'&CHRS(B)ECHRS(B)ECHRS(B)ECHRI(B)ECHRE(B) 
310 ON POS(' #47#48! ,KEYWAIT$)/3+1 GOTO 320,240,320 
- fini les gars! 
320 WINDOW 1 à DISP CHR$(27)&'<Fin.' à PURGE FORTHRAM à END SUB 
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Programme "TFRAC" (Exemples d'utilisation de FRAC$, Necessite FRACLEX) 


30 SUB FRAÇ(N,0) à J=0 à IF O THEN 1=1 ELSE I=-1 

40 J=J+I Q F$=FRACS(N,J) à V=VAL(F$) à D=V-N 

50 IF NOT D OR KEYDOWN THEN 80 

60 GOSUB 90 à DISP @ F=EXPONENT(D) à DISP F:" 1: Q FIX ABS(F)-1 à DISP V à STD 
70 WAIT 1 à GOTO 40 

80 BEEP @Q GOSUB 90 @ DISP " ";:V; @ FIX 2 @ DISP " ":D à STD à END 

90 IF O THEN DISP "p':J; ELSE DISP "au:-J» 

100 DISP " ":F$: Q WAIT 1 à RETURN 
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Programme "COMPTEUR" (Calcule Le nombre d'occurences de Lettre dans une phrase) 


- COMPTEUR DE LETTRE 

GILLET ALAIN 4/2/86 
P$ : Variable contenant la phrase 
L$ : Variable contenant La lettre à compter 
D : Variable contenant la longueur de La phrase 
N : Variable contenant Le nombre de lettre 
Î : Incrément pour La boucle 

80 PRINT "COMPTEUR D'UNE LETTRE" 

90 WAIT .8 


ST PP RER Re NU MINE 





- On demande la phrase 
110 INPUT "Donner une phrase: ":P$ 

- On demande La lettre à compter 
130 INPUT "Lettre a compter? ":L$ 

- On prend La longueur de La phrase 
150 D=LEN(P$) 

- On initialise La variable du compteur 
170 N=0 

- Début de La boucle 
190 FOR 1=1 TO D 

- Si La lettre est celle compter alors on la comptabilise dans N 
210 IF P$SCI,1]=L$ THEN N=N+1 

- Si non ,et même si,alors on prend la lettre suivant 
230 NEXT 1! 

- Quand I=D alors on affiche Le nombre de lettre 
250 PRINT "Nombre de ":L$;:"" contenu dans La phrase: ":N 
260 END | 
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Programme AGENDA!" (Agenda en Basic, necessite DATELEX) 


10 DESTROY ALL @ DELAY 0,.3 @ ASSIGN #1 TO AGENDAF à DIM A$[I256] à DISP "Prgm agenda sur 15 j." 
20 READ #1,0:;D1 

30 DO=VAL(DATES [7] )+VAL(DATES(4,5])/100+(VAL(DATES [1,2] )+1900)/1000000 

&0 D=DDAYS(D1,D0) 

50 IF D<=15 THEN 70 

60 FOR I=1 TO 15 à PRINT #1,1:"" Q NEXT I à GOTO 90 

70 FOR I1=D+1 TO 15 @ READ #1,1:A$ Q PRINT #1,1-D:A$ @ NEXT I 

80 FOR 1=16-D TO 15 à PRINT #1,1;"# Q NEXT 1! 

90 PRINT #1,0;:D0 

100 LC ON à DIM 8$1(96] 

110 INPUT “Jour: ":D$ à X=POS(D$," en 8") à IF D$="" THEN D$=DOW$(D0O) à N=1 à GOTO 160 
120 N=(POS(!"dimanchelundi***mardi***mercredi jeudi ***vendredisamedi",D$[1,X-1+(X=0)*8])-1)/8 
130 IF D$="fin" THEN ASSIGN #1 TO * à LC OFF à OFF à END 

140 IF N<O THEN 110 

150 N=N-DOW(DO)+((DOW(DO)+1>N)+(X#0) )*7+1 

160 LINPUT B$ @ READ #1,N;:A$ à IF B$="" OR B$="annulation" THEN 190 

170 IF LENCA$S)+LEN(B$)>254 THEN BEEP Q DISP “Journee surchargeel" Q WAIT 2 Q GOTO 110 
180 AS=AS&BS&"Q" à PRINT #1,N:A$ à GOTO 110 

190 RESTORE à READ #1,0;:D à D=DATE+(D,N-1) 
200 FOR 1=1 TO IP(100*FP(D)) à READ E$ à NEXT I 
210 DISP D$[1,X+(X=0)*8] ;: IP(D):E$&"." à WAIT 1 à X=0 à 1=0 
220 I=1+1 à Y=POS(AS,"@",X+1) @ IF NOT Y THEN 270 
230 DISP I:":0-A$[1+X,Y-1] 
240 IF NOT KEYDOWN THEN 240 
250 IF KEYDOWN("#18) THEN 270 
260 X=Y à DISP à GOTO 220 
270 DISP à IF B$="" THEN 110 ELSE INPUT "Annulation ligne n!":J à X=0 à Y=0 
280 FOR I1=1 TO J à X=Y @Q Y=POS(AS,"@",X+1) à NEXT I à A$S=A$S[1,X]8AS[Y+1] @ PRINT #1,N:A$ 
290 GOTO 110 


300 DATA janvier, ,fevrier,mars,avril,mai, juin, juillet ,aout septembre, octobre, novembre, decembre 
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Programme "BARGRAF2" (Gestion des donnees HPAF + graphique) 


- BARGRAF2 gestion de donnees et edition d'histogrammes sur ThinkJet. 
Utilise GRAPHLEX, contient Le sous-programme GRAPH (JPC35 p47). 
(c)Eric GENGOUX 0510111987 

40 DIM T$(30] 

50 DISP ‘Data: Kbd Load! 

60 K$=UPRC$S(KEYWAIT$S) à IF NOT POS('KL',K$) THEN BEEP à GOTO 50 
70 ON POS('KL',K$) GOSUB 'KBD','LOAD'! 

80 DISP 'Working...' à BEEP 400,.5 


100 DISP ‘Save Print Graph Exit! 

110 KS=UPRCS(KEYWAIT$) à IF NOT POS('SPGE!' ,K$) THEN BEEP àQ GOTO 100 
120 ON POS('SPGE',K$) GOSUB 'SAVE!,'PRINT','GRAF!,'END'! 

130 GOTO 100 


160 'KBD': GOSUB 'LEGENDS! 

170 DISP ‘Entrée valeurs! à BEEP 400,.5 à WAIT .5 
180 FOR I=X TO X+A-1 STEP 1 

190 12=I1-X+1 

200 FOR J=1 TO B 

210 LS=UT(MESTRE(I DEN, MESTRIE(J)EM )=n 

220 DISP L$; à INPUT T(I2,J) 

230 NEXT J 

240 NEXT 1! 

250 RETURN 


270 'LOAD': INPUT 'LOAD: File name? Frs 

280 IF LEN(K$)>8 THEN BEEP à GOTO 270 

290 ASSIGN #1 TO F$ 

300 READ #1,0:H$ 

310 IF H$[1,4]#'HPAF!' THEN ASSIGN #1 TO * à DISP ‘File not HPAF' à POP 9 END 
320 B=LEN(H$)-4 

330 READ #1,1;A à DIM T(A,B),X$(B) 

340 READ #1,2;:A9 à IF A9=0 THEN GOSUB 'LEGENDS' à GOTO 410 
350 READ #1,A+3:2$,2,T$ ! Titre 

360 READ #1,A+4:2$,Z,X$(1) ! Legendes 

370 FOR I1=2 TO B 

380 READ #1,A+1+3:X$(1) ! Legendes (suite) 

390 NEXT I 

400 DIM T2(B) 

410 FOR 1=1 TO A ! Valeurs 

420 READ #1,1+2:T2() 

430 FOR J=1 TO B 

44O T(I1,J)=T2(4J) 

450 NEXT J 

460 NEXT 1! 


A EL CSS EL 


480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


670 


690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 


DISP ‘Add new values Y/N' 

K$S=UPRCS(KEYWAITS) @ IF NOT POS('YN',K$) THEN BEEP à GOTO 490 
IF K$='N!' THEN GOTO 600 

INPUT ‘How many years?';D 

DIM T(A+D,B),T2(B) 

FOR 1=1 TO D 

FOR J=1 TO B 

DISP !T('E&STRE(X+A+I-1)8&!, '&STRS(J)&')=!; 

INPUT T(A+I,MJ) 


NEXT J 

NEXT I 

A=A+D à GOSUB 'SAVE! 

RETURN 

ISAVE': ON ERROR GOTO 660 
INPUT 'SAVE: File name?':F5$ 


IF LENCF$S)>8 THEN BEEP à GOTO 630 

CREATE DATA F$,A+10,8*B+15 à GOTO 690 

OFF ERROR à BEEP à DISP File exists. Kill Y/N! 
KS=UPRCS(KEYWAITS) Q IF NOT POS('YN',K$) THEN BEEP à GOTO 670 
IF K$='Y! THEN PURGE F$ à GOTO 650 

OFF ERROR à ASSIGN #1 TO F$ à DIM T2(B) 
H$='HPAF' à FOR 1=1 TO B à H$=H$&'N' à NEXT I 
PRINT #1,0:H$ 

PRINT #1,1;:A à PRINT #1,2:A+3 

FOR 1=1 TO A 

FOR J=1 TO B 

T2(J)=T(I,J) 

NEXT J 

PRINT #1,1+2:T2() 

NEXT 1 

PRINT #1,A+3:!TITLES',1,7$ 

PRINT #1,A+4:!FIELDS',B,X$(1) 

FOR 1=2 TO B à PRINT #1,A+1+3:X$(1) à NEXT I 
ASSIGN #1 TO * 

RETURN 


'PRINT': ! Modifiee 05/1/87 
DIM Z0$1120],21$1120] 
PRINT CHR$(27)&'&da"' 


FOR 1=1 TO 120 à Z0$[I1,1]=' ‘ @ NEXT 1! 
215=20$ 
FOR 1=1 TO B àQ Z1$[8*(1-1)+1,8*1]=X$(1) à NEXT 1 


PRINT ‘Année "821$ 

FOR 1=1 TO À 

21$=20$ à Z1$[1,4]=STR$S(X+1-1) 

FOR J=1 TO B à Z1$18*J,8*(J+1)]=STRSCT(I,J)) à NEXT J 
PRINT Z1$ 

NEXT 1! 

RETURN 
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ILEGENDS': INPUT !'Title: !:T$ 








950 INPUT 'Nb.of years !':A 

960 INPUT ‘st year: !,11980!:X 

970 INPUT Nb. of bars';:B Q IF B>6 THEN BEEP à GOTO 970 
980 DIM T(A,B),X$(B) [8] 

990 FOR I1=1 TO B 

1000 INPUT ‘Legend !,STR$(I);:X$(1) 

1010 NEXT 1! 

1020 RETURN 


1040 SUB GRAPHCT(,),A,B,X,X$C),T$,M) 

1050 N=6 à INTEGER Z(N,4) @ FOR J=1 TO N à FOR K=1 TO 4 à READ Z(J,K) à NEXT K à NEXT J 
1060 DIM G$ [80] ,K$ [80] ,L$ [80] ,N$ [80] 

1070 FOR 1=1 TO 20 à NS=NS&CHRS(O)BCHRS(O)&CHRS(O)ECHRS(O) À NEXT 1 
1080 PWIDTH INF Q ENDLINE "# à PRINT CHR$S(27)&"*RG4OS"BCHRS(27)8"8kOS" 
1090 IF M THEN 1110 _ 
1100 M=-INF à FOR 1=1 TO À à FOR J=1 TO B à M=MAX(T(1,J),M) à NEXT J à NEXT I 
1110 Y=M/.9 à F=608/Y 

1120 PRINT TAB(40-LENCTS)/2); CHRSC14)&TSRCHRS(15)&CHRS(13)&CHRS(10)ECHRSC 10) 
1130 PRINT CHRS(27)8&"8k2S" 

1140 GS=N$ à GLINE 1,639,1,1,0 à GOSUB !p' 

1150 G$=N$ à FOR K=1 TO 20 à GOSUB 'P' à NEXT K 

1160 FOR K=0 TO 10 à PRINT TAB(12*K+3): 

1170 PRINT USING "#,6D":54*K/F 

1180 NEXT K 

1190 FOR K=1 TO 12 à GOSUB ‘P' à NEXT k 

1200 FOR K=0 TO 10 à GPSET 32+54*K à NEXT K 

1210 FOR K=1 TO 3 à GOSUB 'P' à NEXT K 

1220 GLINE 32,590,1,1,0 à GOSUB 'p: 

1230 GS=N$S à GPSET 32 à K$=GS 

1240 FOR K=1 TO 20 à GOSUB 'P' à NEXT K 

1250 FOR 1=1 TO À 

1260 IF X THEN PRINT USING "éD":X+1-1 

1270 FOR J=1 TO B 

1280 G$=K$ à GLINE 32,T(1,J)*F,1,1,0 à L$=GS$ 

1290 GOSUB :P! 

1300 P=IP(RND*Z(J,3)) 

1310 FOR K=1 TO 12 

1320 G$=N$ à P=MOD(P+2Z(J,4),2(J,3)) 

1330 GLINE 32,TC1,J)*F,P+1,2(J,2),2(J,1) 

1340 GOSUB P! 

1350 NEXT K 

1360 G$=L$ à GOSUB ‘'Pp! 

1370 G$=K$ à FOR K=1 TO 2 à GOSUB ‘P' à NEXT K 

1380 NEXT J 

1390 G$=K$ à FOR K=1 TO 20 à GOSUB 'P' à NEXT K 

1400 NEXT ! 

1410 G$=N$S à FOR K=1 TO 20 à GOSUB 'P' à NEXT K 

1420 FOR J=1 TO B 

1430 PRINT à PRINT TAB(18):X$(J) 

1440 G$=N$ Q GLINE 32,40,1,1,0 à L$=G$ à GOSUB ‘p: 

1450 P=IP(RND*Z(J,3)) 

1460 FOR K=1 TO 10 à G$S=N$ à P=MOD(P+Z(J,4),2(J,3)) 

1470 GLINE 32,40,P+1,2(J,2),2(J,1) à GOSUB ‘P' 

1480 NEXT K 

1490 G$=L$ à GOSUB 'Pp: 

1500 G$=N$ à FOR K=1 TO 2 à GOSUB 'P' à NEXT K 
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1510 NEXT J 

1520 G$=N$ Q FOR K=1 TO 10 à GOSUB 'P' à NEXT K 
1530 G$=N$ Q GLINE 1,639,1,1,0 à GOSUB !'p' 

1540 ENDLINE @ PRINT à PRINT à END 


1550 'P': GPSET 1 à GPSET 640 à PRINT CHR$(27)8&"*b80W"8&GS$S à RETURN 
- Table de parametres de motifs 


1570 DATA 8,1,9,4 
1580 DATA 3,1,4,2 
1590 DATA 6,2,7,8 
1600 DATA 6,2,7,6 
1610 DATA 1,1,2,1 
1620 DATA 9,1,5,4 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des 
fichiers Lex parus ce mois-ci. 


Rappelons ce qu'est un fichier Lex : c’est un programme pour le HP71, en 
assembleur, qui apporte de nouvelles fonctions. Celles-ci sont utilisables directement, 
ou dans des programmes Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer 
vous-même en assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer 
et de recopier les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles 
fonctions sont accessibles, après avoir éteint et rallumé votre HP71. 

Si l’erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 
Vous trouverz donc, outre le Lex FRACLEX de la rubrique assembleur, le Lex 


CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous écrivez !"), et 
les Lex utilisés par les programmes de la rubrique "Basic". 


P. David (37) 


CHARLEX 


KEYWAIT  KEYWAITS 82001 


FRACLEX  FRACS 225088 

DATELEX  DATE+ 225051 DDAYS 225052 DMY 225053 
DOWS$ 225054 DOM 225055 MDY 225056 

GRAPHLEX GLINE 225078 GPSET 225079 


10 CALL MLEX à SUB MLEX à SFLAG -1 Q PURGE AH à INPUT "Nb. d'octets: ":N à LC OFF 

20 CREATE DATA AH,1,N-4 à A=HTD(ADDRS("AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$S:A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=AS&CS à A=A+37 Q N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[5*FLAG(5)+1] à POKE DTHS(A),C$ à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 


60 DISP DTHS(X)[3]; @ INPUT : ",P$[1,MOD(N,16)1:C$ à GOSUB 90 
70 POKE DTH$S(A),C$ à POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTH$(X)[3]; à INPUT ": ",P$:C$ 

90 DISP DTH$(X)[3]; à INPUT " sm ","---":D$ 


100 M=S @ FOR Z=1 TO LENC(CS) à M=NUM(CS[Z])+M+1 à NEXT Z 

110 1F D$=DTH$S(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 

120 DISP “Erreur de somme“ à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 
130 P$="M------.......... W à RETURN 
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CHARLEX ID#E1 624 octets 036: 084E794142400000 1ED 00B: FDF8E096E5132994 9BE 
037: 00000000002E€4559 528 00C: B3232099550A32AC D40 
0123456789ABCDEF sm 038: 3200000000000000 840 00D: 61557AC076517951 0B5 
039: 0000000000000026 B58 00E: 743110386011148B 411 
000: 34841425C4548502 35E 03A: 5556587008365556 EB7 00F: 644E21495917A511 782 
001: 802E009022512078 681 03B: 5810083645464830 208 010: 577AC2238F674D04 B17 
002: 5E4001E000000000 9F5 03C: 0832414248700024 549 011: 1179118FEB9E077F EC2 
003: FE0000000800001F D4F 03D: 5655587008345655 8A6 012: 04F671318FFB6C08 265 
004: F31BF961400032BF 0E2 03E: 5810083446454830 BF5 013: FE33C076018F459E 60C 
005: 38F14A11DB10AD23 47C 03F: 0C3042414C700024 F4A 014: 07FC011878D01187 994 
006: 07D532BFB8FD7911 82F 040: 5556587008355654 2A7 015: 3111231008F189E0 CFS5 
007: 11AD754D7A101743 BB2 041: 5810083546444830 5F6 016: 74B0119798011A74 06D 
008: 11014D1CB15D0000 F1D 042: 0C3142404C700025 940 017: F012110273B0AD41 3E0 
009: 71450375FF864834 29A 043: 5455587008355455 CA6 018: 198F8A4C073B80695 778 
00A: 5655581008355654 5F1 044: 5810083544454830 FF4 019: F1131577ACA1031B B03 
008: 5810002455565870 93E 045: 0C3140414C700875 356 01A: BB8F21461341192E EB8C 
00C: 0026555658700836 C90 046: 14141870000A4972 6A7 01B: A0EA7E208415A072 21D 
00D: 5556581008364545 FE6 047: 40000€3159454E30 A07 01C: 8066301117330119 569 
00E: 4A30000449724000 339 048: OC7A0F7949400024 D7F 010: 0631F210C114D1131 8CF 
00F: 0808094A2C180814 6A2 049: 5554587000084A71 0DB 01E: CF7A10071098F7B1 C6A 
010: A464242008355455 9FC 04A: 40000C523A262D10 43C - 01F: 8+8FE83B18DC32F0 O01E 
011: 581000054C714000 D42 04B: 0424587458400875 793 020: 70708FE83B1208DE 3C0 
012: 0C3142404C700832 0O9E 04C: 1415187000094A70 AE3 021: 44A17A108F4F6C0A 765 
013: 41414A70002078A0 3F6 04D: 4000083544454830 E27 022: D4018F234C063FF1 AFE 
014: 2F30000000000000 721 04E: 0C3140414C300C74 18F 023: 138FFB6CO8DC29E0 ECO 
015: 0000000000000000 A31 04F: 5655545000054071 4E6 024: 8F499COAFA8F459E 294 
016: 0000000000000000 D41 050: 40000 5DF 025: OADB10BO01A4CS8FEB 65C 
017: 0000000000000000 051 026: 9E0AD48FF53COACO A26 
018: 0000000000000000 361 KEYWAIT ID#52 55 octets 027: 6EAF15171331FCD6 DD1 
019: 0000000000000000 671 | 028: F2157410CD215D01 14F 
01A: 0000000000000000 981 0123456/789ABCDEF sm 029: 338F941811331FCD 4DF 
018: 0000000000000000 c91 O2A: 6F2110C155413301 808 
01C: 0000000000000000 FAI 000: B454957514944502 366 
010: 0000000000000000 281 001: 802E000122512078 681 DATELEX ID#E1 545 octets 
01E: 0000000000000000 5C1 002: 3700025101000000 9D4 
01F: 0000000000000000 801 003: F710000000000000 D02 0123456789ABCDEF sm 
020: 0000000000000000 BE1 004: 0E1000FF84549575 08D 
021: 000000000000080€ F0OC 005: 14944542101FF001 3ED 000: 44144554C4548502 35E 
022: 1A28080008080A2C 276 006: 361081371098F2C6 75D 001: 802E001122512078 6AA 
023: 180008040E340800 5BF 007: 0045111913511813 A99 002: 744001E338300000 9F0 
024: 08001E3018000000 8F9 008: 48D8ACA18F127006 E35 003: F440028000000000 D28 
025: 0000090000000000 C09 009: BDF F04 004: OFAOOOFD00D4100F 0B8 
026: 0000000000000000 F19 005: A105E300D3200310 414 
027: 0000000000000000 229 FRACLEX ID#E1 325 octets 006: OFE2037100F730CD 7A3 
028: 0201000000010200 53F 007: 300D944144554B23 B09 
029: 0000000201020000 854 0123456789ABCDEF sm 008: 3944441495354354 E60 
02A: 0001000100000002 868 009: 4D49553744F47542 1DD 
028: 0102010000000000 E7C 000: 64251434C4548502 35C 00A: 63544F475735D444 558 
02C: 0000000000000000 18C 001: 802E000122512078 6A7 008: 95831FF101001004 8B5 
02D: 045E755142400101 4D8 002: F82001E858500000 A07 00C: 4414455402CF110B C23 
02E: 0101010000000000 7EB 003: F710000000000000 D35 000: 8F4574702F666022 FA4 
02F: 0000000000000000 AFB 004: 0A1000F964251434 093 00E: 516E67656CFF8822 346 
030: 0000070507000000 EE 005: 42851FF881213218 40F 00F: 8FC1DB08F322B184 6F2 
031: 00000000083444C4 15C 006: BB8F2140A4EA4EAF 7E3 010: 1401831606F92851 A&4F 
032: 4440007901112D70 48C 007: 210A2180CE 109108 B4D 011: F810017F/DD17F81 DFC 
033: 050D750509700000 806 008: 8404B28FDF8E017F FO4 012: D9110861D08B6CDE 1AA 
034: 0D70000000384540 B49 009: 94850850AC093850 278 013: 26500C273C28F533 524 
035: 4020014E322E3140 E9D 00A: 810810810AE6BBA8 600 014: 3186080DDDFDD840 8D4 
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015: AFB2190A50850812 C57 036: 9E1A130296123A0E 162 00B: C6305F011A4908D2 9D6 


016: 812A798F834B1A72 FED 037: 0E05213036810101 480 00C: 71308DC5E208F871 D6A 
017: 8FF248187080812A 370 038: 301A8A0E05B0E111 832 000: F032760A858F155F 109 
018: 3EB3668408118526 6F1 039: 213039E31150C5319 898 00E: 041216A142136E21 461 
019: 84088227E5117F10 A6C 03A: 29EBC05058D91FB0 F45 00F: 34D015A3C4C4C416 7F2 
014: 874511109F661B72 DDE 038: 9E36FAE9109102D2 2E4 010: 30131358D3939057 852 
018: AFA8FB13B1BCC6D0 1BF 03C: 304058FE6CE08ADA 69F 011: FFF77FFF7FAF1007 F40 
01C: OB7A8FB13B1AF68D 589 03D: D11296C71320048F A18 012: A4F1188AC70E4590 2DF 
010: 832F08118427A11A 8FF 03E: E6CEO8A9606EBF 11 DD8 013: 8BA40DA74006D31C 67F 
01E: FACCD23078FE6CE0 CDD 03F: 9AE51128F40331AF 170 014: CD8AF0D481C81C81 A3E 
01F: 87221816AD2AA281 064 040: EAF22034532D89F2 50E 015: CD23070EF1ED31F4 DF4 
020: 66CCF17F13310113 3E7 | 041: FOAF2CEAFE9FE000 8F5 016: E2C6132C2134AE2B 191 
021: 38F6242029021012 737 042: 733101E8DA939003 C6E 017: 666600A66CDSAFAE 54F 
022: 0030540450960399 A80 043: 00023000315E6310 FAB 018: 514E0E6D14C13001 8CA 
023: 646E657C42969803 E03 044: E100002000315E21 2F4 019: 3FEFFCFEFF/D2F10 CD2 
024: 9964627160429677 17C 045: 8F3F5318D84A808D 641 014: 21361083051B178F 038 
025: 03F9646562736275 4E9 046: 3035003 806 018: 2631010971BE1401 393 
026: 6D42F68503996465 86C 01C: 64119A0ESCE8AC40 73B 
027: 756A4296D403F964 BF8 GRAPHLEX ID#E1 302 octets 01D: E4118134101706F1 A9C 
028: 6562746E656652F6 F7B 01E: F088F21111478AE7 E2E 
029: E2038964656D6163 2FF 0123456789ABCDEF sm 01F: 0E6145CACC11A8BA 1EB 
02A: 52B1CB861203F5686 689 020: F0111E2E61451121 555 
028: 36E6160696442F1C A21 000: 7425140584C45485 365 021: 00792F1C4147111C 8C7 
02C: F66001C915518F06 DAO 001: 802E002122512078 682 022: A1011188BEF41C41 C56 
020: 4A1840208D7B1812 115 002: 062001EE4F400000 A13 023: 4710A1C4D2E610B1 FEO 
02E: 0315E048408FC463 491 003: F020000000000000 D3B 028: 1179FE111E410111 34D 
02F: 1550850018FC1D80 812 004: 095100DD00EC0000 OBE 025: 88BE52113E410311 6BF 
030: AF878DFAF990A508 BE1 005: 974C494E454E4974 455 026: A8B2BD111147CA10 A56 
031: 12812812AF721A92 F57 006: 05355445F41FF8FB 7FB 027: 11188B21C8D84A80 DE2 
032: 873812812AF5A928 2F3 007: C63157017F018D91 879 028: F E29 
033: 718F834B1AFA23A9 6A2 008: FB08D074508DE6A2 F27 

034: 2B7A86080DDDFDDD A82 009: 0305A0E10A8FD963 2BB 

035: 22031219E1F43170 DE1 00A: 0781011A90A218FD 63D 
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BULLETIN D’ADHESION 


PRENOM |_|_|_|_ 
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AUTRE MATERIEL MICRO- INFORMATIQUE 
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COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 
. PUBLICITE MAGAZINE 
AUTRE CLUB HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 





QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER ? 
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Je souhaîte adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans le journal de Liaison, sans obligations 
ni responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de la 
part des dirigeants du PPC PARIS CHAPTER. 


DATE |_[_]/1_1_1/191 [2] 
SIGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE A 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE) 
PAIEMENT EFFECTUE LE |_|_|/|_|_|/19|_|_| A L'ORDRE DE PPC PARIS CHAPTER. 
PAR [ ] CHEQUE BANCAIRE N BANQUE 

[ ] CHEQUE POSTAL 3 VOLETS N 

[ ] MANDAT LETTRE 
EVENTUELLEMENT : JE M'ABONNE A COMPTER DU |_|_[/|_|_|/19|_|_| 
JOINDRE A VOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPPE TIMBREE A 
VOTRE ADRESSE. 


VEUILLEZ ENVOYER TOUTE CORRESPONDANCE A : 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS 





Le Journal JPC est le bulletin de liaison 
entre Les membres de l'Association 
"PPC-PC", régie par la loi de 1901. Le 
Club est éditeur du JPC, et son siège 
social est au 56, rue Jean-Jacques 
Rouseau, 75001 Paris. 


La maquette de ce numéro a été préparée 
et réalisée par Pierre David, 
Jean-Jacques Dhénin et Janick 
Taillandier, grâce à un système 
comprenant un HP71B, deux lecteurs de 
disquettes HP9114A, une imprimante 
HP2225B et une imprimante LaserJet. 


Directeur de la publication : Philippe 
Guez 
Numéro ISSN : 0762 - 381X 





ENGLISH SUMMARY 
JPC 42 - MARCH 1987 


This issue of JPC begins with the report of Richard Nelson’s decision to stop CHHU. This is a 
very sad news for long time HP handheld users who had many opportunities in the past to 
appreciate his invaluable contribution. 


Our "JPC Eprom" seems to have a nice success : more informations in the next JPC. 


The Journal is made of the following articles : 


The column "A propos du Club" is made of various articles or member letters about the Club. The 
article on page 5 "Choc en retour : interface Minitel - HPIL" describe a correction to article 
published in JPC 34. This interface allows you to use the "Minitel". It is a low cost terminal 
distributed by the French postal administration ; more than 2.5 millions Minitel are used to day. It 
can be used as a display / keyboard / modem (75 / 1200 bauds). 


The HP-41 program on page 10 is used to compute the profil of streets according to french 
regulations. 


On page 12, you will find an introduction by Eric Gengoux about the translation of HP-75 Basic 
programs for the HP-71. This throw light on compatibility problems, especially when you are using 
the HP-75 1/0 Rom, with file manipulation and HP-IL statements. 


The first program (page 16) in Assembler, Forth and Basic draws functions on a 132x128 pixels 
plotting area. The LCD is a 132x8 window in this area ; you can scroll the complete area using [*] 
and [v]. The function is defined by a word ( x -- x y ) : this allows you to use polar coordinates. 


After that, you have a new implementation of the classical "Life game" in Forth and Basic. The 
display handling is very sophisticated. 


FRACS (page 21) is a new Basic keyword which approximates a real number by a fraction of two 
integers. The optional second parameter allows you to specify the precision. The Basic program 
(page 27) allows you to test the precision of FRACS. 


COMPTEUR (page 28) is an example, for beginners, of loops and tests. It counts the occurences of 
a letter in a sentence. 


On the same page, you will find a little time manager which allows you to store two weeks of 
appointments. 


BARGRAF2 prints bar graph from data stored in HPAF files (sample outputs on page 31). It uses 
a sub-program and Lex file by Pierre David described in JPC 35. 


Happy JPC reading ! 
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